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PREFAZIONE 


Questo libro contiene 66 programmi di vario genere, scritti per girare sul computer 
Sinclair ZX81, computer che, per le sue eccezionali qualità unite ad un modestissi¬ 
mo prezzo, ha già conquistato centinaia di migliaia di persone in tutto il mondo 
riuscendo a superare già, secondo gli ultimi dati forniti dalla Sinclair, in numero di 
pezzi, le vendite di qualsiasi altro modello di computer, singolarmente preso, 
costruito sino ad oggi. 

LO ZX81 viene utilizzato anche troppo per realizzare dei giochi. Ho pensato, 
perciò, di offrire in questo libro una maggiore varietà di programmi cercando di 
sfruttare nella gran parte di essi soprattutto le capacità grafiche dello ZX81 e, 
comunque, senza dimenticare del tutto i giochi che sono, naturalmente, presenti 
nella parte finale di questo libro con 9 programmi. 

Oltre alle normali possibilità dello ZX81, il lettore troverà alcuni circuiti molto 
semplici e poco costosi che consentono di aggiungere nuove possibilità allo ZX81. 
Oltre ad un utilissimo avvisatore acustico per la tastiera (realizzabile con meno di 
3.000 lir.") e ad un alimentatore con accumulatore (per conservare i dati della 
memoria e usare il computer anche durante le interruzioni della corrente di rete), 
tali circuiti sono costituiti soprattutto da un circuito di INTERFACCIA che costa 
in componenti meno di 5000 lire e che permette di collegare lo ZX81 a qualsiasi 
dispositivo esterno e da un circuito MUSICALE realizzabile con circa 10000 lire e 
che fornisce tramite semplici istruzioni in BASIC, fino a 50 note su 4 ottave. 

Di questi due ultimi circuiti, le cui applicazioni sono infinite, non vengono forniti 
solo gli schemi e le informazioni per costruirli, ma anche numerosi programmi 
pratici. 

In particolare la scheda musicale è utilizzata per vari effetti sonori, per realizzare un 
organo a 4 ottave che usa i tasti dello ZX81 e per dare il sonoro a vari programmi tra 
cui naturalmente alcuni dei giochi che diventano così probabilmente gli unici giochi 
con effetti sonori disponibili a tutt’oggi per i computers Sinclair. 

Un altra novità di questo libro è l’uso in alcuni programmi (come per esempio 
l’organo elettronico) di speciali tastiere disegnate da sovrapporre alla tastiera 
sensitiva degli ZX per assegnare ai tasti alcune funzioni particolari. 

Come indicato dal titolo, anche chi ha il vecchio ZX80 con la nuova ROM, può 
utilizzare molti dei programmi di questo libro compresi i programmi che usano i 
circuiti di interfaccia e musicale, circuiti che naturalmente possono essere collegati 
anche allo ZX80. 


Gaetano Marano 
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NOTE IMPORTANTI 
SUI PROGRAMMI E SULLA 
RAM UTILIZZATA 


Tutti i programmi possono girare sullo ZX81 ed una gran parte anche sullo ZX80 
con la nuova ROM. 

A fianco del titolo di ciascun programma viene indicato se il programma stesso 
funziona in FAST e/o SLOW. Se c’è scritto FAST il programma può girare su 
ZX80 e su ZX81, naturalmente in modo FAST. Se c’è scritto SLOW il programma 
può girare solo sullo ZX81. Se, infine, c’è scritto FAST o SLOW il programma può 
girare sia su ZX81 che su ZX80, però nel caso dello ZX80 si hanno alcune 
limitazioni, come per esempio in un disegno, l’impossibilità di vederlo formarsi, in 
sostanza, quindi, si ha la normale elaborazione ma non l’animazione grafica. 
Per quanto riguarda il fabbisogno di memoria, solo per alcuni programmi, come 
per esempio gli effetti sonori, è sufficiente il singolo KBYTE e, comunque, nessuno 
richiede più di 4 KBYTES, per cui possono andare bene sia gli ZX espansi con la 
cartuccia RAM da 16K che con la cartuccia RAM da 3K. Non solo, ma in alcuni 
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programmi che hanno delle routines in linguaggio macchina, le routines stesse sono 
state inserite entro i primi 4K di RAM in modo che tali programmi possano essere 
usati, senza modifiche, sia da chi dispone di RAM da 4K che da chi dispone di RAM 
da 16K. 

Infine, se avete solo lo ZX81, ma non l’espansione RAM da 16K e volete usare la 
vecchia espansione da 3K, questo è possibile ma occorre effettuare sulla cartuccia 
da 3K una piccola modifica interrompendo e piegando in modo che non faccia 
contatto, il collegamento tra il connettore ed il circuito stampato, corrispondente a 
Pin 23B del connettore stesso, come visibile in fig. 1. 
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AVVISATORE ACUSTICO 
PER TASTIERA 

ED ALIMENTATORE TAMPONE 
PER ZX80 E ZX81 


Avvisatore Acustico 

L’avvisatore acustico per la tastiera sensitiva degli ZX80/81 produce un breve 
suono ogni volta che viene premuto uno dei tasti. 

L’utilità è evidente poiché questo semplice circuito (che può essere realizzato con 
3-4.000 lire) permette di inserire programmi anche molto lunghi in un tempo molto 
più breve e senza dovere guardare il video ogni volta che si preme un tasto per 
verificare l’avvenuto inserimento della lettera, del simbolo o della Keyword richie¬ 
sta. 

Il circuito è in fig. 2 ed utilizza come semiconduttori due integrati ed un transistor. 



74LS02 

CD4093B 



Figura 2 
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Tutti i componenti possono essere montati su un pezzettino di circuito stampato 
forato facendo, naturalmente, attenzione a collegare esattamente i vari componen¬ 
ti, tra questi soprattutto i due diodi che occorre verificare che siano collegati come 
dallo schema, prima di dare corrente. 

Il circuito dell’avvisatore acustico va collegato tramite 5 fili (come visibile sempre in 
fig. 2) o all’interno del computer o, preferibilmente, al connettore dell’espansione di 
memoria tramite 5 spezzoni di filo sottile ad un capo di diverso colore, come per 
esempio il filo per WIRE-WRAP. 

In fig. 3 è visibile il connettore della RAM, per ZX80/81, visto da dietro e con 
indicati i 5 Pin ai quali vanno saldati i 5 fili dell’avvisatore acustico (+5V, GND, 
WR, KB, IUKQ). 


SOPRA 


WR RD IORQ 


CHIAVE 
V 


o o o o o o v » i/oooooooooooioo 


OOOOOOOOOOOOOOOOOOMlO 


SOTTO 




GNO 


+ 5V 


Connettore RAM3K/16K perZX80/81 visto da dietro 


Figura 3 


Nel collegare i fili al connettore fare molta ATTENZIONE a saldare i fili stessi ai 
Pin indicati e non ad altri e, soprattutto, controllare di non avere cortocircuitato 
durante la saldatura qualcuno dei Pin adiacenti, SPECIALMENTE i Pin che 
portano i +5V e i +9V. 

TENETE PRESENTE CHE UN’ERRATA COSTRUZIONE DEL CIRCUITO O 
UNA ERRATA SALDATURA DEI FILI AL CONNETTORE PUÒ’ CAUSARE 
DANNI AL COMPUTER. 

Per cui se vi occupate di programmazione ma non di circuiti integrati, è preferibile 
che facciate realizzare o controllare il tutto da un tecnico che abbia già esperienza di 
montaggi e saldature. 

In fig. 4 vi sono le configurazioni degli integrati e del transistore usati. 

Una cosa molto importante da dire prima di terminare questa parte è che l’avvisato¬ 
re acustico genera un suono alla pressione dei tasti dello ZX81 solo quando lo ZX81 
funziona nel modo FAST; questa non è una limitazione perchè, per inserire 
velocemente dei programmi sullo ZX81 si deve, comunque operare in FAST, 
poiché come avete avuto modo di verificare l’inserimento di nuove linee con il 
computer in SLOW è già di per sè molto lento. 
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L’avvisatore acustico dispone anche di un piccolo interruttore che serve per disinse¬ 
rire il suono quando non è necessario, come per esempio quando è in funzione 
anche la scheda musicale che verrà esposta più avanti. 


QUADRUPLE 2-INPUT 
POSITIVE-NOR GATES 


COS/MOS QUAD 2-INPUT NANO 
SCHMITT TRIGGERS 



Vcc «V «B 4A JY 3B 3A 



Tininjiiininìnif 


1B 2Y 2A 2B GNO 
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Figura 4 


Alimentatore tampone 

Questo alimentatore oltre alla funzione secondaria di fornire una tensione mag¬ 
giormente stabilizzata, ha lo scopo principale di preservare i dati scritti nella RAM 
durante le interruzioni della tensione di rete e questo per un tempo più che 
sufficiente a conservare il programma (che a volte può avere richiesto molto tempo 
per esere scritto) su cassetta e, nella maggior parte dei casi, anche più che sufficiente 
ad attendere il ritorno della luce. 
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L’utilizzo ideale dell’alimentatore tampone è insieme ad un piccolo televisore 
anch’esso fornito di alimentazione autonoma a batteria. 

Il circuito dell’alimentatore tampone è in fig. 5. La tensione necessaria durante i 
periodi di blackout è fornita da un accumulatore ermetico al piombo da 12V 3Ah 
(B.). 



Figura 6 


V OUt 


La configurazione dei due LM317T, utilizzati nel circuito, è in fig. 6; di questi due 
integrati uno (ICi) viene utilizzato per ricaricare l’accumulatore e l’altro (IC 2 ) per 
stabilizzare la tensione ai circa 9V necessari per il computer. 

La fig. 7 mostra una possibile realizzazione pratica dell’alimentatore. Anche per 
questo circuito vale quanto detto per l’avvisatore acustico circa la necessità di fare 
attenzione ed effettuare tutti i collegamenti nel modo giusto. 



I due LM317T vanno montati su due piccoli dissipatori oppure sul retro del mobile 
metallico, in questo caso pero’ isolandoli tra loro con delle miche e verificando tale 
isolamento con l’ohmmetro PRIMA di dare corrente all’apparecchio. 

In particolare è MOLTO IMPORTANTE CONTROLLARE, PRIMA DI COL- 
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LEGARE L’ALIMENTATORE AL COMPUTER, che la polarità del JACK di 
uscita sia esattamente uguale a quella dell’alimentatore Sinclair con, quindi, il 
positivo (+9V) sulla punta, ed inoltre controllare che la tensione di uscita non sia 
superiore a 11-12V. 
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GRAFICA E DISEGNI 


Lavagna grafica SLOW 

Questo primo programma (fig. 8) serve per realizzare e modificare dei disegni sul 
video utilizzando le istruzioni PLOT-UNPLOT. 

Il disegno viene realizzato premendo alcuni dei tasti del computer. Per evitare 
confusione nel premere i tasti viene utilizzata in questo programma la tastiera N. 1 
inserita alla fine del libro. Tale tastiera va ritagliata come indicato e sovrapposta 
alla tastiera dello ZX81. 


Figura 8 


10 REM LRURGNR GRAFIC R 
100 SL.OU 

•■j ‘-i i cr -r v -• 

220 LET Y = 0 

: 30 LET T=0 

.A 0 1F X<63 THEN LET X-X+ ( INKEY 

$ ' " ) + < IN K EY $ = " U " I + (IN K EY $ = "H , ‘ 3 

1 50 IF X>0 T HE N LET X= X - < IN K EY $ 
« ' ' F "il -CI N K E Y $ = " R " ) -CI N K EY È = " F ' ‘ ) 

1C: 0 IF Y < 4-3 THEN LET Y = Y + C INKEY 


ri- • » cr • 
■+* “ ■— 1 

' ) + C INKEY$ = " 


" J + C IN K E Y $ = " 7 ‘ ' ) 

170 

IF Y> 0 THE N 


LET Y =Y- CINKEY* 

" F ‘ ' ì 

- C INKEY $ = "G- 


i - C INKEY * = "H’ il 

180 

IF IN K EY $ = 1 ' 

P 

THEN GOTO 300 

190 

IF INKEY$=" 

o 

" THEN STOP 

••• 0 0 

IF INKEY*=" 

0 

" THEN LET T=0 

2 10 

IF INKEY$=" 

0 

" THEN LET T=1 

2’ £ '0 

PLOT X . Y 



£ 3 0 

LET R = X 



£40 

LET E=Y 



£30 

IF T = 1 THEN 


IJNPLOT R,B 

F. 0 

GOTO 140 



30 0 

.1 jF» 

■1 ,* •"?- 

IF ''HOT INKE 

Y 

$=• 'P" THEN GOTO 

_1_ *i«.' 

GOTO 300 
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Figura 9 



Figura 10 
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All’inizio, subito dopo RUN e NEWLINE appare un piccolo quadratino nero in 
basso a sinistra dello schermo ed il programma è predisposto per disegnare. 
Premendo uno degli 8 tasti rossi il quadratino si sposta nella direzione indicata sul 
tasto premuto lasciando dove passa una traccia. 

Se si vuole spostare il quadratino per andare a disegnare in un altra parte dello 
schermo o se si vuole effettuare una modifica al disegno già fatto, si può premere il 
tasto verde “MODIFICHE E SPOSTAMENTI” e quindi i tasti rossi necessari per 
spostarsi. 

Una volta effettuata la modifica o lo spostamento si può ritornare a disegnare 
premendo il tasto verde “DISEGNO” e quindi i tasti rossi. 

Il tasto verde “SCROLL” permette di spostare tutto il disegno fatto fino a quel 
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R E M 

LPGflGNR 
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R E M 

RLFRNUMERIGR 


3 0 

REM 

E GRRFICR 


1 0 O 

1 1 0 

S L O U 
LET L 

= 0 


120 

LET C 

= 0 


13 0 

LET T 

= 0 


14-0 

LET >: 

— 0 


14- 5 

LET ■_ 

= 0 


150 

L E T K 

=CO DE I NKEY $ 


'] Fi Fi 

« 1 =: ì 

IF X 

6 4 R N D K = 1 15. 

THEN LET 

j SF, 

I. P :: ' K sr 

222 THEN LET 

J ~ 0 

J„ r’ 

1 r K - 

215 THEN LET 

X = 12 5 

1 s s 

I F K - 

218 THEN LET 

•J = 0 

;i r;;. 0 

T F K > 

0 HMD K - 6 4 THEN LET X = 

15 0 

C + j. 

~ ; f : .... i 

IF c 

3 1 Fi N D K. - 115 

THEN LET 

I F C > 

0 RND K -114 7 

HEN LET C 

19 0 , 

I r L. 

i:"' 1 H N D f — j„ 1 

THEN LET 

!.... “ l... + 1 

2 0 0 

1F L > 

0 RND K-112 T 

HE N LET L 

■? 1 0 

IF K. ~ 

117 THEN SCROLL 

2 2 9 

IF K = 

223 THEN LET 

T = 0 

2 5:0 

IF K = 

119 THEN LET 

T = 1 

2 4- 0 

IF . J - 

0 THEN PRINT 

RT L , C; OH 

H *ip 

2 H 0 

I F ._! = 

1 THEN PRINT 

RT L , C ; CH 

R $ t X 

+ 12:3 :i 


2 «5 0 

i i 

IF T = 

1 THEN PRINT 

RT L. C J " 

2 7 0 

J9 GT Ci 

150 



Figura 11 
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momento verso l’alto. Infine il tasto verde “STOP” blocca l’esecuzione del pro¬ 
gramma. 

Le figg. 9 e 10 mostrano due dei molti tipi di disegni realizzabili con il programma. 


Lavagna alfanumerica e grafica SLOW 

Questo programma (fig. 11), a differenza di quello precedente, usa per disegnare 
l’istruzione PRINT AT e ciò permette di inserire nel disegno tutti i simboli grafici, le 
lettere, i numeri, ecc. anche in campo inverso. 

Per i vari comandi viene utilizzata la tastiera N. 2 che, a differenza della tastiera 
utilizzata nel programma precedente, non viene sovrapposta alla tastiera dello 
ZX81 ma va sistemata al di sopra della prima fila di tasti (1....J0); questo perchè i 
tasti vanno lasciati liberi per inserire i caratteri con cui realizzare i vari disegni. 
Con il programma in funzione i vari comandi della tastiera speciale vanno azionati 
premendo contemporaneamente il tasto SHIFT ed uno dei tasti della prima fila. 
Premendo uno qualsiasi dei tasti (senza SHIFT) appare sul video il carattere o 
numero corrispondente, se si vuole lo stesso carattere ma inverso occorre premere 
SHIFT e il tasto 9 escluso lo spazio inverso che si ottiene premendo SHIFT e il tasto 
2; per ritornare ai caratteri normali si preme SHIFT ed il tasto 3. 

Una volta scelto il carattere si può iniziare a disegnare premendo SHIFT e i tasti 5, 
6, 7, 8, oppure lo si può spostare usando gli stessi tasti ma premendo prima SHIFT 
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RODITORE 


•10 
10 0 
1 10 
1 P 0 
13 O 
14- 0 
13 0 
16 0 
1 7' 0 
1 3 0 
1 P 0 

C r> " 


£ì P 0 
L ET 
2 3 0 
ET L 
2 4- 0 
LET 
2 5 0 


R E M 
L O l.-.l 

F D R R 
PR IMT 
NL- -T 
P R NT 

L. f .; ■ L. 

L. 7 C 
PR I NT 

'• ri “i 


PR ITT 

!" c > 

7. r l. - 
L " L. + . 

IL r L > 
- L. - 1 
TF C < 
C = C + 1 
G OT O 


H 


= S 1 

—• 0 

RT L , C ; 

= 1 TO 3 

T 

RT L , C ; " " 

0 HND INKEY$="5" 

21 HMD INKEY$="6 

•0 AND 1NKEY $ = " ? “ 

31 AND INKEY$ = " S 

170 


T H E N 
THE N 
THtN 
THE- N 


Figura 13 



Figura 14 
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ed il tasto 0, tasto che si deve premere anche per effettuare delle modifiche al 
disegno. 

Effettuata la modifica o lo spostamento, per ritornare alla scrittura si deve premere 
SHIFT ed il tasto 4. 

La fig. 12 mostra un esempio di disegno realizzato con il programma appena 
esposto. 


Roditore SLOW 

Questo programma grafico (fig. 13) inizia riempendo lo schermo di spazi inversi o 
di qualsiasi altro carattere, numero o simbolo grafico. 

Dopo di ciò appare nell’angolo in basso a sinistra un punto lampeggiante. Tale 
punto può essere spostato nelle quattro direzioni tramite i tasti 5, 6, 7, 8. 

Dove passa il punto “mangia” una parte del rettangolo di caratteri o spazi inversi 
formatosi all’inizio del programma. 


1£0 PRINT 


Figura 15 

Un esempio di disegno realizzabile con il programma “Roditore” è una specie di 
labirinto visibile in fig. 14. La linea 120 contiene tra gli apici 8 spazi inversi che con 
le linee 110 e 130 producono sullo schermo un rettangolo nero. 
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I r- 


Figura 16 

Per avere un diverso fondo la linea 120 può essere modificata come visibile nelle 
figure 15 - 16 - 17. In queste nuove linee i caratteri tra gli apici sono sempre 8 però 
non si tratta più di spazi inversi ma del carattere grafico del tasto A (fig. 15) o del 


1200PRINT 


> 


Figura 17 


simbolo inverso del $ (fig. 16) o ancora di una serie di punti inversi (fig. 17). 

Nel listato di fig. 13 si possono eliminare, eventualmente, le istruzioni 180 e 190 per 
rendere più veloce il movimento del punto. 

Il programma può essere fermato con il tasto BREAK. 
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2 © 
10 0 
1 10 
120 
130 


REM 

REM 


RODITORE 


CONI 


PLOT 


- 2 - 


[UN PLOT 


S L O U 

FOR R = 1 TP SS 
P R I NT ' ' HHHI 
NEXT fl 


14-0 PRINT 
ISO LET X=0 
160 LET Y=0 


i e. s 

LET 

K = 

0 
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IF 

K = 0 

THE N 

PLOT X 

Y 


1S0 

L'NP 

L OT 

X Y 
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K = 1 

THE N 

PLOT X 

, Y 


2 0 0 

IF 

IMK 

E Y $ = " 

3" THEN 

LET 

K = 1 

2:0 5 

IF 

IN K 

E Y % - " 

M " TRE N 

LET 

K =0 

2 10 

T CT7 

-1 1 

X 0. 

R M D 

IN K E Y $ = 

11 nr 11 

THEN 

LET X 

“T.X -- 

1 





220 ■ 

I F 

Y < 4. 

3 Fi N D 

INKEY$ 

_ ■ * —? • « 

THEN 

L ET 

’v’ ~ Y 

4- 1 





2 3 0 

IF 

"y" > 0 

R N D 

IN K E Y $ = 

" 6 " 

THEN 

LET Y 

— Y — 

1 




2 4-0 

IF 

X 6 

3 n N D 

IN K E Y $ 

= •• © •• 

THEN 

LET 


+1 





2 e; 0 

G Ci T Li 1 

70 





Figura 18 



Figura 19 
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Roditore -2- con PLOT-UNPLOT 


SLOW 


Questo secondo programma di Roditore grafico (fig. 18) è simile al precedente con 
la differenza che usa le istruzioni PLOT e UNPLOT, il che permette di realizzare dei 
disegni con lo stesso sistema ma con una definizione quattro volte maggiore, inoltre 
è anche possibile modificare un disegno già fatto o correggere eventuàli errori. 
L’istruzione 120 contiene tra gli apici 8 spazi inversi, tale istruzione assieme alla 110 
e 130 disegnano un grosso rettangolo nero sullo schermo, dopodiché il quadratino 
in basso a sinistra di tale rettangolo lampeggia. 

Tramite i tasti 5, 6, 7, 8 si può disegnare spostando il quadratino lampeggiante nelle 
quattro direzioni. 

Se si vuole modificare un disegno o si vuole spostare il quadratino lampeggiante in 
una zona del rettangolo scuro, si può premere prima il tasto “S” (Scrive) premen¬ 
do poi il tasto “M” (Mangia) per tornare a disegnare. 

La fig. 19 mostra un esempio di disegno realizzato con questo programma. 


Programma grafico FAST 

O SLOW 


Il programma di fig. 20 può essere utilizzato per tracciare il grafico di una qualsiasi 
funzione matematica. 


10 REM PROGRAMMA GRAFICO 
£0 REM - 

nuti ,,PRIWT TRB ‘‘ RTTENDERE 2 MI 

SS PAUSE 200 
99 CLS 
10G FhST 
110 DIM A ( 64- ) 

120 FOR K = 1 TO 64- 
130 L ET A ( K ) = K *K / 110 
14-0 NEXT K 
150 SLOU 

160 FOR 6=0 T O 6 3 
17 0 G O S U 6 210 

180 NEXT 6 
190 FAST 
200 STOP 

210 FOR E=6 TO 63 
£20 PLOT E,A(B+1) 

230 NEXT E 
24-0 RETURN 


Figura 20 
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La fig. 21, per esempio, mostra il grafico relativo alla funzione matematica presente 
nella linea 130 del programma di fig. 20 (K*K/1 [ 0 ). Occorre tenere presente che 
per disegnare tale grafico sullo schermo il computer ha bisogno di circa 2 minuti di 
tempo. 



Figura 21 


Se si vuole disegnare solo la curva della funzione matematica senza la parte scura di 
riempimento ed anche con una maggiore velocità di esecuzione, si può modificare il 
programma di fig. 20 sostituendo la linea ITj^GOSUB 21#conla linea 170 indicata 
in fig. 22. 


170HPLGT B,fl(B+l) 

Figura 22 

130HLET fi ( K 1 =RND * ( K 1.5) 

Figura 23 

1300LET fi (K) =T fiN K * 5 

Figura 24 

13 00LET fi (K) = L N K *10 

Figura 25 
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Nelle figure 23, 24, 25 vengono date altre tre versioni della linea 130 (da inserire nel 
programma di fig. 20) con tre diverse funzioni matematiche per ottenere altrettante 
diverse curve sullo schermo. 

Programma universale per PRINT AT FAST 

O SLOW 

Molto spesso all’inizio di un programma è necessario per prima cosa inserire in 
varie parti dello schermo tutta una serie di lettere, numeri e simboli, grafici e non, 
per formare delle frasi e/o dei disegni. 

Questa operazione può richiedere anche molte decine di linee di programma 
contenenti l’istruzione PRINT AT. 


1 

0 

REM 

PR 

O 

G 

R fi M M fi 

1 INI 

UE 

R 

O 

RL 

E 

2 

0 

REM 

PER 











3 

0 

REM 

- I 

N 


FR 

ST 

O SL 

OLJ 

— 





100 

SLOU 













11 

0 

REM 

C 0 

O 

I 

CI 

L. I 

NE E 

IN 


L 

$ 



12 

0 

LET 

L $ = 

1 1 

0 

0 1 

2 3 3 

3 3 4 - 5 

t* t» 

F. 


4 - 

4 - 

4 - 4 - 4 - 

5 5 

er ; cr -7 -7 -7 •=• 

W W « • • 1 — 1 

8 8 9 

9 

0 

HH 

HHH 

fi fi B B 

BC 

c 

c 

D 

D 

D “ 

13 

0 

REM 

C O 

D 

I 

CI 

co 

LONN 

E 

I 

N 


c 

$ 

14 - 

0 

LET 

C $ = 

1 • 

0 

10 

KJK 

LMKK 

KL 

MT 

P 

Gì 

RST 


P O R 8 T 5 6 7 4-1'8 4 6 ‘3 3 4-567 8 9 o 6 9 4- 6 8 567“ 


150 REM 

160 LET 

/.y/.v.vzwzzz, 


CRRUTTE RI IN X$ 

X $ = “ Mc L 3 p R I Mu 


170 IF LEM L$oLEN C % OR LEM C $ 
< >L E N X $ THE N G0T O 220 


ISO 

F O R P = 1 T O 

L E N X $ 

190 

PRINT RT C 

ODE L $ i!P TO .1 -28 

ODE 

r: $ r p t n i - 

2 8 x $ 1 : P t 0 P ) 

20 0 

N E XT P 


210 

5TOP 


220 

PRINT RT 0 

.'10: " HI 1 1 1 ■ 1 1 B ' 1 

23© 

PROSE 100 


2 4-0 

F RST 


250 

LIST 



Figura 26 


Se però si stabilisce prima con esattezza quali caratteri vanno inseriti e per ciascuno 
in quale linea e colonna, tutta questa fase può essere svolta (in FAST o SLOW) dal 
programma di fig. 26. 

I caratteri da inserire sono nella variabile X$ mentre le linee e le colonne in cui 
inserire tali caratteri sono contenuti in forma codificata nelle variabili L$ (linea) e 
C$ (colonna). 
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Tabella 1 



CODIO I 

fflINEE 

E 

iOLONNE 

Di,- 

B COD. 

H,-S 

eoe 

. S C G C 

0 

> 0 

1.1 > 

E; 

2: 2: > r-i 

1 

1 

1 > 

f: 

2 3 > N 

bwi 

> 2 

•1 

-i- ■—.< 

D 

2 4- > O 

3 

> 3 

14 > 

E 

2 5 > P 

4- 

> 4- 

15 > 

F 

2: E' :■■■ O 

C. ( 

/ Fi 

T Fi *> 

f-; 

£ R 

£ 


'1 “7 

H 

: r. : 



“j" ^ 

T 

Q T- 

cr. ir 1 i 

i’Ti ì } 



il' 0 

K 

31 > v 

•1 iTV 
-L ‘CJ 

> n 

£’ 1 > 

L 



I codici delle linee e delle colonne sono indicate nella tabella 1. Se per esempio il 
primo carattere di L$ è “G”, il primo carattere di C$ è “T” e il primo carattere di X$ 
è il programma piazzerà il simbolo+ alla linea 16 colonna 29. 

Nel programma di fig. 26 è inserito in L$, C$ e X$ un esempio che produce il 
disegno di fig. 27. 

Naturalmente L$, C$ e X$ devono avere la stessa lunghezza. 

Nel programma sono state, perciò, inserite alcune istruzioni (170, 220, 230, 240, 
250) che segnalano con la scritta “ERRORE” eventuali differenze di lunghezza. 



RII 


Figura 27 
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Programma universale per FLOTTAGGIO FAST 

O SLOW 

Come nel caso precedente per PRINT AT, anche una lunga serie di linee di 
programma con PLOT può essere condensata in un programma più breve come è 
visibile in fig. 28. 

In tale programma le coordinate X e Y di ciascuno punto da plottare sono inserite 


1 0 R E M P R DG RPMMP UNIU E R 0. P L. E 
P E R 

- IN P H S T D S L G U* - 


i :.l 0 REM CO 0 RD INPTE ORIZZ . IN X $ 

X $ = " 1,3 i 4- 1E 1 & 1 7' 18 1 

: 2 2 3 2:3 2:3 2:4- 2:4- 2.' 4 2.' 4 

2! 2 2! 1 210 1 ’=< I. 1. / i & 1 E' 

14 13 12 11 10 0 9 0 3 '07 0 6 ©6 © 

5 0 5 0 6 ©6. ©6. ©7 0 8 © 2 

:. lTi 1 Ci 1 1 “7 7 ■=. 7 " 


10 

R E M 

2 0 

R E M 

3 0. 

E M 

1 © © 

, L n 

1 :.], © 

RE M 

1 15 

R E : ; 

-.0 

L. ET 

9 . © 

'■aa^ * "j '^1 aj 

2 : 1 

.14 l "'' 1 

3 1 

6. © 5; 

0 5 

1 ©' 1 1 

12 

1 £ 5 

R E f-1 

13 0 

R E r-i 

13 5 

R E M 

14 0 

L. ET' 

6 © 7 

0 6; 

1 7 18 

19 

2:4. R 

4 2: 

7 16. 

15 

© 6 © 6. 

©6 

150 

r E r-i 

16 © 

F O R 

17© 

PLO' 

$ i P TO P 

ISO 

NEX" 

30© 

P R 11 


13 O R E M C O 0 R D IN P T E U E RT . IN Y $ 

13 5 REM -- 

14 0 L. ET' ¥'4 = "05 0 6'. ©6 0 5 ©6 ©6 © 

1 1© 11 12 13 14 15 16 

17 1 0 19 2© 2 1 2 2 2 3 2 3 2 3 2 4 2 4 

!— 1 — 1 o *z« *i ”i 171 i”j •=• -i 

aia. In» V* «ir ^7 ai. «J., 

14 13 12 11 IO © S 0 8 ©7 

19 1© 11 12 13 14 “ 

16© POR P = 1 TO LEM X $ STEP 3 

17© PLOT URL X $ < P TG P + l) , URL Y 


Figura 28 
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Figura 29 
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rispettivamente nelle variabili X$ e Y$. Come è visibile tra un numero e l’altro va 
inserito uno spazio. 

Naturalmente le coordinate vanno comprese tra 00 e 63 in X$ e tra 00 e 43 in Y$; i 
numeri inferiori a 10 vanno inseriti con uno 0 davanti (per es. il numero 7 va inserito 
come 07). 

Le coordinate inserite come esempio nel programma di fig. 28 danno il disegno di 
fig. 29; la lettera R viene aggiunta a disegno ultimato dall’istruzione contenuta nella 
linea 300. Realizzare lo stesso disegno senza questo programma avrebbe richiesto 
58 linee di programma con PLOT. 


Flottaggio QUADRATI FAST 

O SLOW 


Quando occorre disegnare varie figure quadrate si può utilizzare il programma di 
fig. 30 che disegna quadrati di qualsiasi dimensione inserendo le coordinate X e Y 


10 

PRINT " 

INSERIRE E3" 


■2 0 

INPUT X 



3 0 

U !_ 5 



4.0 

PRINT ” 

INSERIRE S5B" 


5 0 

INPUT V 



3 0 

U L 5 



7 0 

fi 1 P T N T 

IN S E R I fi E p|" 


8 0 

INPUT L. 



9 0 

C !_ S 



100 

G O 3IJ E: 4-000 


£ 0 0 

STOP 



3 9 9 

R È M - 

--- ... --.... ... ... ... ... 

— — 

4.000 

R E M P L. O T T fi G G IO 

4- 0 10 

S L O U 



4-02 0 

F O P: fi = X 

TU X+L. 


4-030 

l” f?i 

IF fi < 0 

0R R >63 THEN GOT 

0 4 0 

W *iL» 

4 0 4 0 

IF Y > - 0 

AND YX=43 THEN 

P L O T 

H .» '» 

4-050 

IF Y + L > 

— 0 fi N D Y + L. — 4 0 T 

H E N 

PL nr 

H . Y + L 



4.06 0 

NEXT fi 



4070 

POP: fi =Y 

T 0 Y 4- L 


4-00 0 
■1 

IF fi < 0 

OR fi >43 THEN GOT 

il: 4 1 

4. 0 'il 0 

IF X > = 0 

fi N D X < = £• 3 "ì H E, N 

P .... G l 

X , fi 




4- 10 0 

IF X + L > 

— O fi N D X + L... < ~ E' 3 T 

fi E N 

PLOT 

X. + L . fi 



4- 1 1 8 

NEXT fi 



4- 1 2 0 

RETURN 

Figura 30 
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(anche negative) dell’angolo in basso a sinistra del quadrato stesso e naturalmente il 
lato “L” (vedere fig. 31). 



Figura 31 


IO REM PLGTT. CASUALE QUADRATI 

20 REM ... 

30 RAMO 

4-0 POR Q - 1 TO 7 

5 0 L E T X = IN T ( 5 0 * R N D ) 

6 0 LEI L = 5 + INT ( £5*RND) 

70 LET V = INT ( 3 0 * RND) 

0 i-; i iSI i0 4-000 

90 MEXT O 
100 STOP 

y d 9 R E M ----—--— 


Figura 32 













Come esempio si possono sostituire le istruzioni da 10 a 999 in fig. 30 con le nuove 
istruzioni esposte in fig. 32 per produrre sullo schermo il disegno di 7 quadrati con 
posizione e grandezza casuali (fig. 33). 

Flottaggio CERCHI FAST 

O SLOW 


È possibile disegnare anche dei cerchi usando il programma di fig. 34. In tale 


programma 

occorre inserire 

all’inizio le coordinate X e Y (anche negative) del 

10 

PRINT 

" INSERIRE 

£ 3 " 

2 0 

INPUT 

V‘ 

3© 

C L 5 



4.0 

PRINT 

" INSERÌ IRE 

sa 

F; 0 

IN PUT 

T 

60 

C L 3 



7 0 

P R I NT 

" INSERIRE 

E9" 

8 0 

IN P LI" 

R 


9 0 

C L 3 



:l 0 0 

i7 n l_l B 

50 00 


P 0 0 

STO P 



9 '9 9 

R E M - - 

--- 


3 0 0 0 

P: E M P L O T T P G G IO 


5 0 1 0 

S L ù U 



B 0 2 0 

f" G R C - 

0 "1 3 36 0 

5TEP 1 4 INI 


3 o r ) 

3 0 3 0 L . E" T K C * P I 1 3 0 

5 0 4 0 L... E T H sr R * C G S K + X 

5 0 5 0 L.. E. ' 1 B — R * 5 IN K + Y 

o 0 c 0 1 r r > - 0 p n d p = s 3 p n d b > = 0 

PND B<=4-3 THEN PLOT R,B 

5070 NfcX'T C 

3 O 3 O R E.' T '_ì R ‘4 



Figura 35 
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10 REM CERCHI CONCENTRICI 

20 REM ... 

3 0 LET X= 3 2 
4-0 LET Y =22 

5 0 POR R =5 Tu 3 0 STEP 5 

6 O G O 5 LI B 50 0C 
70 NEXT R 

100 STOP 

999 REM - 


Figura 36 


centro ed il raggio “R” del cerchio da disegnare (vedere fig. 35). Anche in questo 
caso come esempio vengono date in fig. 36 alcune nuove istruzioni da inserire nel 
programma di fig. 34 in sostituzione delle prime 12 istruzioni (da 10 a 999) per 
ottenere una serie di cerchi concentrici (fig. 37). 



Figura 37 
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Flottaggio ELLISSI FAST 

O SLOW 

Per terminare questa breve serie di figure geometriche da disegnare con il computer 
viene dato anche un programma per disegnare le ellissi (fig. 38), a partire dalle 


10 

PRIMT 


'' INSER IRE SS" 


2 0 

IN P UT 




3 0 

i :L Fi 




4-0 

P R I NT 


"INSERIRE SS" 


5 0 

•Sii, “h 

IN P UT 




7 0 

PRIMT 


"INSERIRE W®'' 


3 0 

33 N P UT 


R M fl 



f' R I. NT 


" INSERIRE Gasati 


i ; 0 

7 N P UT 


P: M I 


i P i7l 

C L S 




—1. ‘vi* 

G Ci S U B 


E- 0 0 0 


■ 1 *• 1 1» 

UT U P 

R E M 



_ 

6 0 0 0 

p e: m 

p l u i t h u u i u Msmì&m 


6 0 3 0 

51. 0 U 




e. 0 £ 0 

IF R M R 

>= R MI THE N LET S= RMfl 


6 0 3 0 

IF RMI 

> = R M Ri T H E N L E T S = R M I 


O 0 4 0 

F O R C 

- 

0 TO 360 STEP 1+INT 

( 

0 0 0' 0 

LET K 

— 

C * P I 1 s 0 


6 0 5 0 

L ET fl 

ZZ 

c r r-i fl -- 0 .5 :i * ( i + c o s k j -• 

P 

M A + X 





0 . 0 ? 0 

LET E; 

“ 

1 ] RM 1-0.5) * ( 1+51N K ) - 

P 

r-i i +v 





6 0 0 0 

IF fl > 

zz 

0 AND fl < =63 AND B > = 0 


fl N C:* E 

"i < = 4.3 

THEM PLOT A,B 


E. 0 9 O 

N E XT 

c 

- 


S 1 0 0 

RETURN 

Figura 38 
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Figura 39 







coordinate X e Y (anche negative) del centro e dei valori del raggio maggiore 
(RMA) e dal raggio minore (RMI) come visibile in fig. 39. 

In figura 40 e figura 41 sono mostrati due tipi diversi di ellissi con indicati in alto i 
valori inseriti per ottenerle. 

«3 = 32 0 = 22 lZliJttJ = 30 ISlBH = 15 



sa 


0 


Figura 40 


fl = 20 [53*153=10 


ia*w=2o 



Figura 41 
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1 0 
£ 0 

r" i r™ i- 

r-T tri 

R E M 

0 0 

R E M 

ic,' 

L. ET 

& 0 

L fi i 

7 ;! 0 

l cl; “t 

0 0 

LET 

0 

Cr U 3 

. 0 0 

:~0-) o 

! Cj C{ 

r e:: r-i 

3 5 

IF C 

100 

r e r-i 

00 

FOR 

0 0 

F* 0 0 1 

00 

N E X" 

1 9 9 

G OT 


E «3 \ ‘i O 


X u. xf-<n 


: ID IM ENS IO N fi L. El 


sssu*aaM 


6085 IF 0=130 THEN GOTO 9000 


Figura 42 
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Figura 43 












L’esempio fornito per questo programma è particolarmente bello da realizzare, 
infatti inserendo le istruzioni di fig. 42 nel listato di fig. 38 si ottiene il disegno di un 
cilindro Tridimensionale (fig. 43), e chi dispone di uno ZX81 (che ha la funzione 
SLOW) potrà anche vedere il cilindro mentre si forma. 

Cilindri di altra forma possono essere disegnati usando altri valori per X, Y, RMA, 
RMI, H (altezza). 


Disegni 

I prossimi tre programmi mostrano le capacità del computer nell’eseguire dei 
disegni. Tali disegni possono essere utili in altri programmi oppure essere usati 
come esempio dimostrativo fine a se stesso. 

Tutti e tre i programmi possono funzionare anche in FAST però in SLOW sono 
molto meglio perchè si vedono i disegni mentre si formano. 


Cielo stellato FAST 

O SLOW 


Una particolarità del programma (fig. 44) per disegnare un cielo stellato è che il 
numero delle stelle, piccole e grandi, è maggiore in alto e diminuisce in basso verso 
l’orizzonte (fig. 45) così come nella realtà. 

NEW YORK FAST 

O SLOW 


Con poche linee di programma (fig. 46) il computer è anche in grado di disegnare in 
modo casuale il panorama di una città come New York con i suoi grattacieli (fig. 
47). 
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Figura 44 
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Figura 45 
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Figura 46 




Figura 47 








Se poi si aggiungono al programma di fig. 46 le linee 77,88,99 (fig. 48), le linee 220, 
230, 240 (fig. 49) e si sostituiscono le linee 160,165, con le nuove due linee di fig. 50 si 
può anche ottenere lo stesso panorama di New York ma di notte (fig. 51). 


7 7 F GR P = 1TGSS 
S P R IN T ' ' ■■■ 
99 NEXT P 


Figura 48 


c;' c.! 0 F U Pi 7—0 7 i_i t' * 

2 30 PL.G7 7,0 
2 4.0 ME <1 T 


Figura 49 


160 UNPLG7 X,Y 
165 IF Y>0 AND 
3 7HEM PL 07 X.Y 


Y < H fl N D • ( 4- * R N D ) 


Figura 50 



Figura 51 
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Montagne 


FAST 
O SLOW 


L’ultimo programma grafico (fig. 52) disegna in modo casuale delle montagne (fig. 
53) alle quali può essere aggiunto anche un orizzonte inserendo nel programma le 
linee 270, 280, 290 <fig. 54). 

IO REM MONTAGNE 

20 REM-- 

1O0 SLOI.-J 
HO LET 0=5 

120 LET M=1 

130 LET X=0 

13 5 R A N D 

14-0 LET E = 1 + I NT (S*RNDJ 
ISO F OR H = 1 T O E 

160 IF M = 1 THEN F OR Y=0 TO PBS 

C O + H ) 

170 IF M = — 1 l'HEN FOR Y = O TO PBS 

( fi - H ) 

ISO IF M = 1 AND O+H>=0 OR M = -1 R 

ND R-H>=0 THEN PLOT X,Y 
190 NEXT Y 

EOO LET X=X+1 

2 10 IF X =64 THEN GOTO £70 
220 NEXT H 

230 IF M = 1 THEN LET 0=0+E 

24-0 IF M = — 1 THEN LET 0=0-E 

250 LET M=M*(-1) 

263 GOTO 14-0 

Figura 52 



Figura 53 


270 FOR T = 0 TO 3 1 
260 PRINT PT 21 ,T; 
220 NEXT T 


Figura 54 
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É anche possibile, inoltre, aggiungendo le linee 77, 88, 99 (fig. 55) e sostituendo la 
linea 180 con la nuova linea di fig. 56, ottenere delle montagne chiare di notte. 

F U Fi P — 1 T* O o S _ 

88 PRINT .; 

0-3 NEXT P 

Figura 55 

18 0 IF r-1 = 1 AND fl + H > = 0 OR M = - 1 Fi 
N D H - H > = O THE N IJ N P L OT X . Y 

Figura 56 
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PROGRAMMI VARI 


Progettazione di Multivibratori 

Monostabili con 555 FAST 

O SLOW 

Una delle applicazioni più interessanti del computer è nella progettazione di circuiti 
elettronici. Un esempio pratico è il programma di fig. 57 che permette di calcolare i 
valori di un Multivibratore Monostabile con il timer 555 (fig. 58). 


10 REM PROGETTAZIONE DI 
20 REM MULTIUIBRATORE 
30 REM MONOSTABILE CON 
100 3LOU 

110 PRINT "INSERIRE 0R ( 1--10O 

00 KOHM ]i " 

115 PRINT "E PREMERE NEULINE" 
120 INPUT RA 

130 IF RA =0 THEN GOTO 150 
14-0 IF RA> 10000 OR RA < 1 THEN GO 
TO 120 


150 

CLS 



ISO 

PRINT 

"INSERIRE 

H ( 0.001-- 

100 uf :i " 



165 

PRINT 

"E PREMERE 

NEULINE" 

170 

INPUT 

c 


1S0 

IF C = 

0 THEN GOTO 

200 

19© 

IF C> 

100 OR C < 0. 

001 THEN GO 

T O 17 

0 



200 

CLS 


Q ( 0.O1--1 

2 10 

PRINT 

“INSERIRE 

0000© 

M SEC 

. ) " 


2 15 

P R I NT 

"E PREMERE 

NEUL INE •' 

220 

INPUT 

T 


230 

IF T = 

0 THEN GOTO 

25 0 

24© 

IF T > 

100000 OR T 

<0.01 THEN 

G OT n 

220 



2 5 © 

C L S 



2 6 0 

IF RR 

= 0 AND C = 0 

AND T = 0 THE 


N GOTO 110 


Figura 57 (Continua) 
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•*1 

70 

IF 

R R > 0 R N D C >0 R N D 

T > 0 

THE 

N*” 

G OT O 

1 10 



2 

80 

IF 

RR =0 RND C=0 OR 

RR =0 

RND 

T 

= 0 

OR 

C = 0 RND T =0 THEN 

GOTO 

1 1 1 


£ 9 0 IF Rfi >O R ND C>0 THE N P RINT 

"Bfi"i_TRB 6 ; Rfi ; " KGHM";TRE: 1 ; TRE: 

0 JJh" TRE; 6 ; C " UF " ; TRE; 1 ; TRE; 
0; "B";TR6 6; 1. l*Rfl*C;" MSEC." 

30 0 IF RR > 0 RND T >0 THEN PRINT 

"Sfl" ;TRB 6; RR; " KOHM" ; TRE; 1 ; TRE; 

0 ; "H"j TRE 6;T / (1, liRR) ; " UF";T 
RE; 1 ; TRE 0 .; "fi"; TRE 6 ; T ; “ MSEC." 

310 IF C>0 RND T > 0 THEN PRINT " 
0R" TRE 6 ; T / ( 1.1*0 ; " KOHM" ; TRE 
1; TRE 0;"S“;TRE 6; C; " UF"; TRE 

1TRE; 0 ; "il" ; TRE 6 T " MSEC." 

320 PRINT RT 9,0;"PREMERE NEULI 

NE" 

330 PRINT "PER RLTRI URLORI" 

34-0 INPUT X $ 

350 CLS 

360 GOTO 110 

Figura 57 (Fine) 


+ V +v 
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Facendo girare il programma usciranno in sequenza le tre scritte di figg. 59, 60, 61 
che chiedono l’inserimento dei tre valori. Se ad esempio si vuole conoscere il valore 
del tempo T a partire dalla resistenza RA e dal condensatore C si dovrà inserire 


INSERIRE USO ( 1--10000 KOHM ) 

e; p p e: m e r e n e u l. i n e 

Figura 59 


INPER IRE M ( 0.00 1 - - 100 LIF i 

e: p r e m e r e n e li l i n e 

Figura 60 


e f;: i r r fa <: 
remere: NEL' 

0.01- 
L_ IN E 

- - 100000 


Figura 61 


U3R 

sa© 

k o h r-i 

H 

0.1 

UF 

li 

9 0 . a 

MSEC . 

PREMERE NE 
PER ALTRI 

UL INE 
URL ORI 


Figura 62 


prima RA e poi C mentre per T (fig. 61 ) si dovrà inserire il valore 0, in modo simile si 
dovrà operare se si vuole ricavare RA da C e T o C da RA e T. 

Un tipico risultato fornito dal programma è visibile in fig. 62. 

Contapezzi SLOW 

Un uso insolito dello ZX81 può essere quello di contapezzi (fig. 63) capace di 
contare da 0 a 99.999.999 pezzi. 

Facendo girare il programma esce sul video la scritta di fig. 64. Ogni volta che si 
preme NEWLINE il numero viene incrementato di uno. Oltre a ciò si può inserire 
anche un numero qualsiasi da aggiungere (peres. 337115) che premendo NEWLI- 
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10 REM CO NT PREZZI OR . 0 
E'O REM R 99.999.999 PEZZI 
100 5LOU 

110 PRINT "PREMERE NEULINE PER 
1 SOLO PEZZO" 

120 PRINT 

130 P RINT "O INTRO DU R R E N* PEZZI 
IN PIU* O IN" 

14 0 P RINT 

150 PRINT "MENO (CON -> E PREME 
RE NEULINE" 

-ISO print rt ioAT-rrnmi 

i i 


170 

PR I NT 

RT 

11,0, 

1 

i r 

■r. 1 i 

1S0 

PRINT 

RT 

1 £ , 0 ; 


■ ■ 

mmmmmmn 


i i 

190 LET N= 0 
E00 LET 0=0 

£10 INPUT N$ 

220 IF N È = 11 " THEN LET N$ = "l" 

£30 IF CODE N$<>££ THEN FOR R=1 

T O L. E N N $ 

£40 IF CODE N$ = £ £ THEN FOR R=2 
T O L E N N $ 

£ 5 0 IF U O D E N $ ( R T O ) < £ S nO R C O D 

E N$CR TO 5 >37 THEN GOTO 60.0 

£6 0 NE XT R 

£70 IF CN+URL N $) > (1E8-1) OR ( N 
+ URL N$:i <0 THEN GOTO 600 
£80 LET N=N+URL N$ 

£90 DIM B $ ( 1 9 - L E N 5TR$ N ) 

300 LET R$=STR$ N+B$(l) 

310 FOR P = 1 TO LEN R $ -1 

3 £ 0 LET C = P * £ + 14 

330 LET JsCODE fl$ (P TO ) 

340 IF U=0 THEN GOSUB 1997 
350 IF J>0 THEN GOSUB ( J-£S) *10 
0 + 1000 
360 N E XT P 
3 70 G OT O £10 
600 FOR E = 1 TO 3 

610 PRINT RT 15,5;"NUMERO ERRRT 
O O ECCE S SIUO ' ' 

6 £ 0 LET T =TRN £ 

630 PRINT RT 15,5;" 

■ i i 


Figura 63 (Continua) 
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64-0 

LET T =T fi N 

2 

650 

NEXT E 


660 

GOTO 210 


1000 

PRIMT RT 

10 . C 

1010 

PRINT AT 

ll.C; 

1020 

PRINT AT 

12 , C; 

1030 

RETURN 


1100 

PRINT AT 

10,0; 

1110 

PRINT AT 

11 . C ; 

1120 

PRINT AT 

12,0 ; 

1130 

RETURN 


1200 

PRINT AT 

10 , O; 

1210 

PRINT AT 

il,c ; 

1220 

PRINT AT 

12 , C ; 

1230 

RETURN 


1300 

PRINT AT 

10 , o ; 

1310 

PRINT AT 

11 , C ; 

1320 

PRINT AT 

12 , c ; 

1330 

RETURN 


14-00 

PRINT AT 

10,0; 

14-1© 

PRINT AT 

il , C ; 

14-20 

PRINT AT 

12 , C ; 

14-30 

RETURN 


1500 

PRINT AT 

10,0 ; 

15 10 

PRINT AT 

11,0; 

152 0 

P RINT AT 

12 , C ; 

1530 

RETURN 


1600 

PRINT AT 

10 , C ; 

1610 

P RINT AT 

11,0 

1620 

PRINT AT 

12,0 ; 

16 3 0 

RETURN 


1700 

PRINT AT 

10,0; 

1710 

PRINT AT 

11,0 ; 

1720 

PRINT AT 

12,0 ; 

1730 

RETURN 


1600 

PRINT AT 

10 . c ; 

16 10 

P RINT AT 

11,0 ; 

1820 

PRINT AT 

12 , C ; 

1830 

Return 


1900 

P RINT AT 

10.0; 

1910 

PRINT AT 

11 , c ; 

1920 

PRINT AT 

12 , O ; 

1930 

RETURN 


1997 

PRINT AT 

1 0 , C ; 

199 8 

PRINT AT 

j. 1 ■ c ; 

1999 

fi'RI NT AT 

12' C ; 

2000 

RETURN 



D 

1 

E 

3 

H 

S 

E 

1 

B 

9 


Figura 63 (Fine) 
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NE viene sommato al numero presente sullo schermo, oppure si può inserire un 
numero preceduto dal segno ” e che premendo NEWLINE viene sottratto dal 
numero in quel momento presente sullo schermo. Se si cerca di sommare o di 
sottrarre un numero che farebbe scendere il numero presente sullo schermo sotto lo 

PREMERE NEWLINE PER 1 SOLO PEZZO 
O INTRODURRE N" PEZZI IN PIU" O IN 
MENO (CON -:i E PREMERE NEWLINE 


spezzi 

NUMERO ERRATO O ECCESSIVO 

Figura 64 

PREMERE NEWLINE PER 1 SOLO PEZZO 
Ù INTRODURRE N* PEZZI IN PIU" O IN 
I" ! E ì ì O < C O f--J - : E P P: E M ERE N E W L IN E 

r.pezzi HI 1SB3D5 

Figura 65 

0 o lo farebbe andare oltre il numero massimo di pezzi, il programma segnala 
l’errore nel modo indicato sempre in fig. 64. Un esempio d’uso dei contapezzi è in 
fig. 65. 

La parte del programma che scrive i numeri di grandi dimensioni può essere utile da 
inserire anche in altri programmi. 

Del contapezzi viene data anche una versione più breve e più rapida da scrivere (fig. 
66) che però non usa i numeri grandi ma presenta sul video i numeri di dimensioni 
normali (fig. 67). 
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10 REM C ONT PREZZI Dfl O 
20 REM fi 99.999.999 PEZZI 
100 SLOU 

110 PRINT "PREMERE NEULINE PER 
1 SOLO PEZZO" 

120 PRINT 

13O PRINT "O INTR O D U R R E N" PEZZI 

IN PIU" O IN" 

140 PRINT 

130 PRINT "MENO (CON -) E PREME 
RE NEULINE" 

16 O P RINT hT 10,2;" N" PEZZI" 

190 LET N-0 

210 INPUT N $ 

220 IP N $ = " THEN LET N$ = " 1" 

-r* i— r-. r— k i , —r* i i r— k i r— , r-. .1 


2 3 O 

IF CODE N$o22 

THE N F O R 

fi = 1 

T n 

L E N N $ 



24 0 

IF CODE N $=22 THEN FOR fi 

_ -“l 

t ri [ 

E N N $ 



2 0 0 

IF C 0 D E N $ ( fi T 

0 ) < 2 3 O R 

COD 

E N $ 

(H IO ) >37 THEN 

GOTO 600 


2 O 0 

NEXT fi 



2 7 0 

IF (N+UfiL N$j > 

(1E8--1) OR 

( N 

H" fi L... 

N$) <0 THEN GOT 

3 6 0 0 


2 3 0 

LET N=N+UfiL N $ 



2 9 0 

D IM B $ ( 1.9 - L E N 

ST R $ N :i 


3 0 0 

L ET fi $ - ST R $ N + B $ (15 


3 1 0 

PRINT RT 10,12 

; fi $ 


31:0 

GOTO 210 



6 O 0 

FOR E -1 TO 3 



6 J.0 

PRINT fiT 15,0; 

" INSERITO 

N" 

ERRA 

TO O ECCESSIUO" 



S 2’ 0 

LET T =T fi N 2 



e. 3 0 

PRINT fiT 15,0.; 

1 ! 

i i 


64 0 

LET" T=ThN 2 



6 r, 0 

NEXT E 



e. 6 0 

GOTO 210 




Figura 66 


PREMERE NEULINE PER 1 SOLO PEZZO 
O INTRODURRE N" PEZZI IN PIU" O IN 


MENO (CON -) 
N" PEZZI 


E P R EM ERE NE UL INE 
87654321 


Figura 67 
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Scritte rotanti 


SLOW 


Una delle applicazioni del programma di “Scritte rotanti” (fig. 68) può essere nella 
pubblicità e nell’informazione in genere. 


10 REM SCRITTE ROTANTI 
10 0 5 L D U . 

1 1 0 PPINT 1 ' IMSERIPE Fp R SE" 
1P O IN P UT R $ 



i!0 Ir LE:N R $ < 3 HEN DIM H $ (32 


FM H$+10) 

1 i S IF L E N R $ > 3 1 T H E N D I M H $ CI 0 


00 L ET E$=R$+H$ 
:10 ITT C $ - E: $ 


£' 2 .! 0 

PR.INT AT S,0.;C$i:i 

TO 

' Jj U 

U E. T C % ~ C $ ( S 7 Ci j 


P ^ O 
-t E'."' P 

ir LEM C$ <32 THEN 

LET 

1: S 0 

f 0 P D = 1 T O T 


•r ! p, 0 

NEXT D 


1 T 1 

GOTO 220 



Figura 68 


QUESTA E" UNA SCRITTA ROTANTE . 

Figura 69 



CRITTA ROTANTE 


QUESTA E* UN 


Figura 70 
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Dopo avere premuto RUN e NEWLINE si inserisce prima la frase anche di molti 
caratteri e poi la velocità di rotazione. Dopodiché i caratteri, i numeri e i simboli 
della frase inserita iniziano a ruotare da destra a sinistra. 

Le figure 69 e 70, 71 e 72, 73 e 74 mostrano tre esempi di scritte rotanti ciascuno dei 


'4‘< —■ J» vj 


h N • —• y u 


tl - ir! 


Figura 71 



tlijiiriiwìiHHJOi:, 


Figura 73 


r k 


v^pj si 




UOPOI890MNBU< > + 




Figura 74 


0 


6 so IF 


I N K EY $ = " P 


THEN PPUSE 


Figura 75 


265HIF INKEY$="P" THEN GOTO 280 
£70 GOTO 220 

260 INPUT P$ 

2 9 0 G OT O 2:2 © 

Figura 76 
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quali visto in due differenti momenti, comunque il modo migliore per rendersi 
conto del funzionamento è quello di provare il programma in pratica. 
Aggiungendo la linea 265 (fig. 75) si può rallentare la rotazione della frase di 4 
secondi ad ogni carattere (PAUSE 200) se si tiene premuto il tasto “P”. 



Figura 77 


S 0 10R E r -1 LI N E E 204 > > > 2 O 9 

202 REM ROUTINE INVERSIONE 

203 REM CARATTERI DELLA FRASE 
204. DIM I$(1.,LEN 5$) 

20 5 POR 1 = 1 T O L E N B $ 

206 IF CODE B $ ( I TO I ) <64 THEN 
LET 1$ (1, I) =CHR$ (CODE B $ ( I TO I 
i +12 8 ,‘i 

2 O 7 IF CO D E B $ (I T O I) >127 THE N 
LET 1$ (1, I) =CHR$ (CODE B$ ri Tn 

I) ) 

2 0 8 N E XT I 

20 9 LET B$ = I$ (1) 

Figura 78 


R $ = 12 3 4 56 7 8 9 0 P O IIJ V TRE U O R S D F G H J K 

L . M N B U C X Z .. > < * : = + - ) ( $$$£$$$$ 

Figura 79 



9 0 P OIUYTRE UQR SD F GH.J K L.M N B U C X ' 


Figura 80 


È anche possibile, inserendo le linee 265, 280 e 290 di fig. 76, fare in modo di 
bloccare la rotazione della frase ogni volta che si preme il tasto “P” e fino a che non 
si preme NEWLINE. 

Un’altra possibilità ancora è quella di avere una frase in caratteri inversi anche 
inserendo dei caratteri normali, per ottenere ciò occorre modificare le linee 170 e 
180 nel modo indicato in fig. 77 ed aggiungere al programma le nove linee di fig. 78, 
dopodiché inserendo, per esempio, la frase di fig. 79 si ottiene una scritta rotante 
come quella di fig. 80. 


Renumber 


FAST 


Un programma di Renumber è molto utile durante la programmazione poiché 
permette di riordinare automaticamente tutti i numeri di linea. 

La versione di fig. 81 realizza questo riordino esclusi i numeri dopo GOTO e 


RENUMBER 


'3 000 STOP 
9010 REM 
90£0 FftST 

9095 PRINT "INSERIRE 
IO RENUMBER" 


N* LINEA INI 


30 INPUT NIR 

3 5 PRINT ’ 1 INSERIRE NU OU O N" LIN 
EH INIZIALE" 

90 4-0 INPUT NLI 


9 0 3 
9 O 
9 O 3 


9042 CLS 

9 0 4-5 PRINT "INSERIRE DISTANZA TR 

Al LI N E E " 

9050 INPUT DTL 

9 0 5 2! C L S 

9 O 5 5 L... E T IM = 1 6 5 O S 

9 0 6 0 L E ì • N X = P E E K < IM + 1 ) * 2 5 6 + P E E K 


.* -V‘ W .4 


9065 J F NX <NIR TUE N GOTO 9110 

9O7O IF NX -9000 THE N' GGTG 915 0 

9 0 3 0 P G K E ( I M + 1 ) , 1 N T ( N L I 2 5 6 > 

909O PGKE (IM+ 2) , NLI-256*1NT ( NL 
I 2 5 6 ’f 

9100 LEI NLI=NLI+DT L 

2110 LEI IM-IM+5 

9 1? 0 IF REE K IM = 11S THEN OTO 9 0 

Fi 0 

0 130 LEI IM = IM-, 1 

9 1.4- 0 10 UT U 9 1 2 0 

9150 LIST 


Figura 81 


INSERIRE NUOUG N" LINER INIZIAL ~ 

Figura 82 

INSERIRE WLINEA INIZIO RENUMBER 

Figura 83 

INSERIRE DISTANZA TRA LINEE 


Figura 84 
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1 

REM 

P R O G R R M f-1 R P R O U R 

■”l 

REM 

PER RE NUME:E R 

3 

REM 

LINEE 1 - 7777 

4- 

R E M 


‘ZI* 

L..ET 

OJ 

II 

H 

18 

REM 

■ 

*“• 

REM 

• 

“? “7 

i* t* 

REM 

• 

115 

G OT O 

1007 

2 3 5 

REM 

■ 

5 3 2 

R E M 

« 

650 

REM 

■ 

6 6 6 

REM 

• 

S '3 O 

REM 

■ 

99 F 

G Q S U B 4- 

1003 

REM 

.... XX 

12 3 5 

REM 

■ 

o o o 

REM 

■ 

3578 

REM 

■ 

4 52 1 

REM 

■ 

574-4- 

REM 

K 

7777 

REM 

FINE PROGRRMMR f 


ri O U R 


Figura 85 


1 

R E M 

t~' 2. *_j R 

c! 

R E M 

P E R R 

3 

REM 

L INEE 

4- 

R E M 



1.ET 

R = 2 . 


R E M 

a 

“7 

REM 

■ 

ì“i 

R E M 

■ 


G GT r 

100 7 

•1 i“?i 

J. *»J 

REM 

a 

1 1 

REM 

a 

12 

R E M 

■ 

13 

R E M 

a 

14- 

REM 

a 

15 

G O S U B 4- 

16 

r e m 

.... XX 

1 7 

R E M 

a 

2.8 

R E M 

m 

1 9 

R E M 

a 

20 

R E M 

a 

£ 1 

REM 

K 

2 2 

REM 

F INE 


I I* 1 


F IN E P R O G R R M M R P R G U R 


Figura 86 
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100 

REM 

PROGRAMMA PROUA 

110 

REM 

PER RENUMBER 

120 

REM 

LINEE 1 - 7777 

130 

REM 


14-0 

L..ET 

CU 

II 

il 

150 

R E M 

■ 

1 & 0 

REM 

■ 

170 

REM 

■ 

180 

ijn OT 

1007 

190 

REM 

■ 

20 7 

R E M 

« 

2 10 

R 7 H 

■ 

220 

REM 

■ 

230 

REM 

■ 

24-0 

>2 G 3 L 

B 4- 


REM 

.... XX 

26 0 

R E M 

■ 

270 

r E r-i 

■ 

28 0 

R E M 

■ 

29 0 

REM 

■ 

30 0 

REM 

K 

3 10 

REM 

F IN E P R O G R R M M R P R O U R 


Figura 87 


GOSUB che vanno modificati singolarmente, in tal modo si ha un programma di 
Renumber più facile da inserire e togliere quando occorre. 

Il programma va fatto girare con un RUN 9010 o con un GOTO 9010. Dopo di ciò 
si vedranno apparire sul video per prima la scritta di fig. 82 die chiede di inserire il 
numero da cui iniziare la rinumerazione (per es. 3), poi la scritta di fig. 83 che chiede 
di inserire il nuovo numero di linea iniziale (per es. 100) e infine la scritta di fig. 84 
che chiede di inserire la distanza desiderata tra le linee (per es. 10). 

La fig. 85 mostra come esempio un programma che ha proprio bisogno di essere 
riordinato, mentre le figure 86 e 87 mostrano due differenti esempi di rinumerazio¬ 
ne del programma di fig. 85 ottenute con il programma di Renumber appena 
descritto. 


Lettore Memoria FAST 

O SLOW 

Un’altra utility interessante è il lettore della memoria del computer (fig. 88) con il 
quale si può leggere il contenuto di una parte qualsiasi della ROM o della RAM a 
partire dall’indirizzo introdotto all’inizio (fig. 89). 

La fig. 90 mostra un esempio di lettura della RAM ed in particolare proprio di una 
zona nella quale è scritto il programma di fig. 88. 
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10 REM LETTORE MEMORIA 
100 SL O U 

110 PRINT “INSERIRE INDIRIZZO D 
I PARTENZA" 

120 PRINT “ i: 0--65535 ) E PREME 

RE N E U LINE" 

130 INPUT fi 

14-0 IF fi < O OR fi >65535 T hi E N GOTO 
13 0 

ISO CL S 

16 0 PRINT “ INDIRIZZO C ONTE N UT 
O CARATTERE" 

170 PRINT “- 

180 POR L*2 TO 21 

ILO PRINT fiT L. .. 3 ; fi+L-2 ; TfiE 15; P 
5 E K ( Ai + L - 2 .ì 

2 G 8 IF REEK C fi 4 L. - 2 3 < > 1 1S THE N P 
RI NT RT L , 24- ; CHR $ REE K ( A+L.-2) 



PRO INPUT X$ 

P 4. fi i Z'. L 3 

250 GOTO 1 10 Figura 88 

INSERIRE INDIRIZZO DI PARTENZA 
C 0 --6 5535 3 E P R EM ERE NE ULINE 

Figura 89 

INDIRIZ ZO CONTENUTO CfiRATTERE 


16 5 13 

C.» *"»! *1 

W ’ “'; 4 

fi 

16 5 14- 

0 


j 6 5 15 

4 fi 

L 

16 6' 1 6' 

.1 •„/: 



fc:-| 

~r 

« 

’1 « r. « X 


-r- 

* 

3 6’ 6 .} fi 


ri 

■ ! f-i t~, fi 

L"; —• . 

p 

16 5 2 1 

4 .“-i 

*-h- c::. 

E 

1 3 c;:; p p 

0 


16 5 2 3 

5 0 

M 

16 5 2 4- 

4-2 

E 

16525 

5 0 

m 

Li E' 5.2 E' 

5 2 

o 

16 5- £ '? 

SS 

R 

1 e 5 2 6 

4-6 

I 

n 6 5 2 9 

3 3 

fi 

1 e, e: 3 0 

118 


165 3 1 

0 


16 5 3 2 

100 

■7 


Figura 90 
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Il programma ha un’istruzione (220) che stampa il pezzo di memoria appena 
esaminato, dopodiché premendo NEWLINE si può introdurre un nuovo indirizzo 
di partenza. 


Programma caricamento routines 
in linguaggio macchina 

contenute in stringa FAST 

Se non si hanno limitazioni di memoria il modo più chiaro e più comodo per 
inserire in un programma delle routines in linguaggio macchina è quello di caricare 
le varie istruzioni decimali (con uno spazio tra l’una e l’altra) in una stringa (per es. 
A$) e di utilizzare il programma di fig. 91 (istruzioni da 2000 a 2090), programma 
utilizzato in pratica anche in due delle animazioni del prossimo capitolo. 

Le linee da 1 a 80 in fig. 91 servono per mostrare il funzionamento della routine in 
linguaggio macchina contenuta in A$ (linea 2020). 


1 R e: M P R o Cri R Pi r *1 M Pi O I P R O U fi 
10 C-iOSUB 2000 

2 0 !- ' R I NT ‘ ' IN S E R I fi E N f 1 - - ; 


L..- L... 


JK ti ióòù? , N 
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R E r*1 
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M fi C C Fi 1N fi 
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P 0 0 0 
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Figura 91 
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*; mu 

t_ r> P; t l-j 
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Figura 92 


.1N o E R IR E N ( 1 - - 2 5 G 

Figura 93 
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D IFICPI 

-, - 1 .... 

20 20 LEI" 

R $ 
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Figura 94 


a 0 1SHR e r-1 M O DIPI C fì - - 2 - - 
2Q2Q INPUT fiEfc 
2 0 3 0 L. E "I fi-20 2 2 5 

204-O POR L = 1 IO LEM fi $ 3TEP 3 

Figura 95 

Tale routine di esempio (fig. 92) serve solo a moltiplicare per quattro un numero 
inserito all’inizio del programma (fig. 93) e a presentare il risultato sul video. 
Modificando alcune linee del programma nel modo indicato in fig. 94, si possono 
eliminare gli spazi tra le istruzioni contenute nella stringa (linea 2020) ogni istruzio¬ 
ne, però, deve essere sempre formata da tre numeri anche quando è inferiore a 100 
(per es. 2 va scritto 002). 


48 



È anche possibile sostituire la stringa con le istruzioni della linea 2020 con un 
INPUT A$ (fig. 95) in modo da potere inserire ogni volta delle routines da provare. 
Oltre che in decimali è possibile caricare le istruzioni nella stringa anche in esadeci- 
male utilizzando il programma di fig. 96 e le istruzioni esadecimali di esempio 
contenute in A$ sono sempre quelle di fig. 92. Un ulteriore compattazione della 
stringa può essere ottenuta eliminando gli spazi tra un’istruzione e l’altra, utilizzan¬ 
do l’ultima modifica esposta in fig. 97. 

Per convertire delle istruzioni decimali in esadecimali, e viceversa, si possono usare 
gli appositi programmi per conversioni di numeri in base diversa che sono presenta¬ 
ti più avanti in questo stesso capitolo. 


100 0 

R E M 


ROUTINE CARI 

ORMENTO 

1 0 0 1 

R E M 


PROGRAMMI IN 



1 0 0 2 

REM 


L IN G U R G G IO . M R C C H IN R 

1 0 0 3 

R E M 


R PARTIRE DA 



J 0 0 4. 

R E M 


ISTRUZIONI 3 

E=r=Ti3=H 

nsisiwì 

1005 

R E M 


ME M O RIZZATE 

IN R $ 


£ 0 G 0 

FR5T 





£ 0 2 0 
f: Q 11 

2 0 3 0 

LET 

fi$ = "c’H 7 Ei 4 0 

2 9 2 9 

44 4 

LET 

R 

= £ 0 2 2 5 



2 04 0 

F O R: 

L 

= 1 TO LEM R $ 

STEP 

3 

c - • """ ■"* 

u... V 's ,- 1 

R OK E 


R , CCODE R$ (L 

T O ) 

- 2 s ) * 

16 4 C C 

: G D E 

R $ ( L + 1 TO i -2 

8 ) 


2 0 6 0 

LET 

A 

-- R + 1 



2 0 7 0 

N E XT 


L 




Figura 96 


20150REM MODIFICA --3-- 
2020 LET AÈ = ,, 2n7Ei4029294.44DC9" 
2030 LET R=20225 

204-0 POR L = 1 TO LEM R $ ST'EP 2 


Figura 97 


Programma caricamento routines 
in linguaggio macchina 

contenute in 1 REM FAST 

Un sistema già noto per inserire delle istruzioni in linguaggio macchina in un 
programma è quello di scrivere tali istruzioni (in esadecimale) nell’istruzione 1 
REM posta all’inizio del programma. 

Rispetto a programmi simili già esistenti la versione di fig. 98 (linee da 2000 a 2090 
più linee 1 e 2) permette di inserire nella istruzione 1 REM un numero qualsiasi di 
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1 

REM 2 

R7B4.029294-4.4-DC9 

£ 

ijì i_i '“i 1 _ 15 

2000 

S0 

.1 " 

30 
3 5 

PRINT 

“INSERIRE N < 1-255 

INPUT 
C L 5 

N 

4-0 

PQKE 

16507 , N 

50 
6 0 
5 0 

P R I NT 

FRST 

STOP 

IJ S R 2 0225 

1 0 0 0 

R E M 

R O UT IN E C R R IC fi M E NT O 

10 0 1 

R E M 

PROGRRMMI IN 

1002 

R E M 

LING UR GGIO M R C C MINA 

100 3 

REM 

R PRRTIRE DR 

1004- 

R E M 

IST R U Z IO N I l=«=TSl»3=ff><Bfe^« 

1005 
2 0 00 

R E M 
FRST 

M E M O R IZ Z fi 'T E IN < 1 R E M 

2 0 £ 0 
P E E K 

LET S 
1 6 5 12 

= 16511+PEEK 16511+256 * 

£ 0 3 0 

LET R 

=20225 

£ 040 

F O R L. 

= 165 14- T O S ST E P 2 

205 0 

PQKE 

R , < < P E: E K L ) -2 6 J +16+ C ( P 

E E E 

t: l. + i ) ) 

— 2 Q ì 

2 0 E. 0 

LEI R 

= R + 1 

2 0 70 
£ 0 S 0 

N E XT 

S L O U 

L. 

2 0 9 0 

RETURN 


Figura 98 


istruzioni esadecimali senza modificare il programma il quale controlla automati¬ 
camente la lunghezza del contenuto di 1 REM con l’istruzione contenuta nella linea 
2020. 

Se la routine in linguaggio macchina è più lunga di 200-220 Bytes o se si usa la RAM 
da 16K l’istruzione 2030 va modificata in conseguenza. 


Conversioni numeriche 

I prossimi sei programmi eseguono le conversioni tra i tre principali tipi di numera¬ 
zione utilizzati dai programmatori, le numerazioni binaria, decimale e esadecimale. 
Di ciascun programma viene dato anche un esempio pratico. 

Le applicazioni dei programmi di conversione possono essere varie, per esempio la 
conversione da decimale a esadecimale può essere utile per convertire una serie di 
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istruzioni decimali in linguaggio macchina nei corrispondenti valori esadecimali da 
inserire in un programma. 

Tenete presente che la matematica del computer ha una precisione di 8-9 Digit per 
cui se il numero binario, decimale o esadecimale inserito è troppo grande il numero 
ottenuto dalla conversione può risultare arrotondato. 

In tutti e sei i programmi i numeri da convertire vanno inseriti dal Bit più significati¬ 
vo (MSB) al Bit meno significativo (LSB). 

Tutti i programmi hanno un’istruzione finale per la stampa del risultato. 


Conversione da binario 

a decimale FAST O SLOW 


Programma in fig. 99. Esempio in fig. 100 

10 INPUT A $ 

1000 REM CONVERSIONE Dft 

1010 REM BINARIO A DECIMALE 

1020 FAST 

1030 LET N = 0 

10 4.0 LET K =0 


1050 

FOR C = LEN A $ -1 TO 0 

STEP -1 

1060 

LET K = K + 1 


1070 

LET N=N+2**0*VAL A $ 

( K T O (■•:. > 

10 S 0 

NEXT C 


1090 

CLS 


1100 

P RINT ' ’ N" BINAPIO: " 


1110 

PRINT A $ 


1120 

PRINT 


1130 

PRINT '*= DECIMALE 

” N 

1140 

COPY 



Figura 99 


N" BINARIO: 


1 1 0 0 t 

'I 1 . 10 110 1110 1 



= D E C IM A L.. E E; 01:! 0 9 

Figura 100 


Conversione da binario 

a esadecimale FAST O SLOW 

Programma in fig. 101. Esempio in fig. 102 
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10 INPUT R $ 

1500 REM CONVERSIONE Dfl 
1510 REM BINARIO R ESRDECIMRLE 

1520 FRST 
1530 LET 5=0 

154-0 LET L = LEN R$/4-INT <LEN fl $ 

4 :i 

1550 IF L = 0 THEN GOTO 1620 
1560 L.ET S = 1 

1570 IF L<0.26 THEN LET 5=5+2 

1550 IF L > O.26 AND L <0.51 THEN L 
ET 5=5+1 
1590 DIM 5$(1,5) 

1600 LET 5$<1)="000" 

1610 LET A $ = S $ i 1i + R $ 

162 0 LET HsLEN A$/4 

1630 DIM N(H) 

1640 FOR F = 1 TO H 
1650 LET N(F)=0 
1660 F OR C=0 T O 3 

1670 LET N (F) =N (F) +2**0«URL R $ (F 
*4-0 T O F * 4 -C ) 

1650 NEXT C 

1690 NEXT F 

1700 CLS 

17 10 P R I NT ' ‘ N" B IN R R IO : 

1720 IF 5=0 THEN PRINT R$ 

1730 IF S>0 THEN PRINT R $ (5 + 1 TO 

) 

1740 PRINT 

1750 PRINT "= ESRDECIMRLE "; 

1760 FOR P=1 TO H 

1770 PRINT CHR $ (N(P) +28) ; 

1750 NEXT P 

1790 PRINT 

1500 COPY 


Figura 101 


N" BINARIO: 

1 1000 1 10 1101 1101 


= E 5 R D E O IM R L E C 6 D D 

Figura 102 


Conversione da esadecimale 

a decimale FAST O SLOW 


Programma in fig. 103. Esempio in fig. 104 
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10 

INPUT A $ 


2000 

R E M C O N U E R SIONE 

DA 

20 10 

REM ESADECIMALE 

A DECIMALE 

20 2 0 

FAST 


203O 

LET N = 0 


204-0 

FOR 1 J — 0 TO LEN A$ 

- 1 

2050 

LET N=N+ ( (CODE A $ 

(LEN A $ -U 

TO ) 

— 23) #16 # # U) 

206 0 

NEXT J 


2070 

CLS 


2030 

PRINT "N* ESADECIMALE: 

A $ 

2 090 

PRINT 


2 100 

PRINT "= DECIMALE 

" ; n 

2 110 

C O P"v" 



Figura 103 


NT ESADECIMHLE : C6DD 


= DECIMALE 50909 


Figura 104 


Conversione da esadecimale 

a binario FAST 0 SLOW 


Programma in fig. 105. Esempio in fig. 106 


10 INPUT A$ 

2500 REM CONVERSIONE Dfl 

2510 REM ESADECIMALE A BINARIO 

2520 FAST 

2530 DIM N $ (1 , L E N A $ * 4- ) 

254-0 LET B$ = "0000 0001 0010 0011 

0100 0101 0110 0111 1000 1001 1 

0 10 10 11 110 © 110 1 1110 1111 " 
2550 POR E = 1 TO LEN A $ 

256© LET C = CODE A $ f E TO J -27 

2570 LET N $ ( 1 , E * 4- - 3 TO E * 4- j =5 $ ( C 

*5 -4- TO C *5 - 1 !i 
2530 NEXT E 

2590 FO R Z = 1 TO LEN N $ ( 1 ) 

2600 LET R$=N$(1,Z TO ) 


Figura 105 (Continua) 
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26 10 

IF N $ 

< 1 , Z i 

3 0 

2 6 2 0 

NEXT 

-T 

2 6 30 

2 6 4 O 

CLS 

PRINT 

" N“ 

; m $ 
2650 

2 t 0 

P R I NT 

fi R XNT 

i ! r— 

L S S 
2 6 7 0 

i ‘ ' 

P R I NT 

R $ 

2 6> S 0 

C O P"v" 


="1" THEN GOTO 

ESRDECIMflLE: 

1 M fi H 1 O ( " B 


Figura 105 (Fine) 


W " E 5 fi D E C IM fi L E : C 6 D D 

= B IN fi R IO ( M S B > > > > L 3 B ì 

1100011011011101 

Figura 106 


Conversione da decimale 

a esadecimale FAST O SLOW 


Programma in fig. 107. Esempio in fig. 108 


10 INPUT N 

3 000 REM CONVERSIONE Dfi 

3010 REM DECIMALE fi ESRDECIMflLE 

3020 FAST. 

3O30 L. ET E = O 

3 O 4.0 IF 15*16**E > M THE N G OT O 3 O 7 

0 

303O LET E-E+l 
3 0 6 0 fi O T O 304-0 


3 O 7 O 

LET 

H $ = “ “ 


30 30 

LET 

J = N 


3 O 9 0 

F O R 

C - E TO 0 STEP 

- 1 

Zi 10 O 

F Li R 

F = 15 TO O STEP 

- 1 

-n . .*** 

_fi «fi tifi* 

L. ET 

K F * 1 Fi * * C 


3.120 

IF 

-K>=0 THEN LET 

H$=H$+CH 

R $ £ 

S + F ) 



3 13 O 

1 E : ... 

-K > =0 THEN GOT 

O 3 15 © 

Zi 14- 0 

N E XT 

F 



Figura 107 (Continua) 
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3 150 
3 1 6 O 

l ET ,J = 
NEXT C 

■J -K 


3 17 O 

Ir LE N 

H $ 

■ 1 AND CODE H $ = 9S 

THE N 
3 13 O 

L... ET MS 
C L Z< 

H $ 

: p t o i 

3 X 9 O 
3 2 0 O 

PR T NT 

P R 1N"! 

'• M* 

DE f : I MALE. : " , N 

3 9 10 
$ 

- cu, cu. 01 

P R I NT 

C G PY 

" = E 

: 5 Pi D E C I r-1 Pi LE ’ * ; P 


Figura 107 (Fine) 


r-r D E C I f-1 A L E : 5 0 9 0 9 

= ESADECIMALE C6DD 

Figura 108 


Conversione da decimale 

a binario FAST O SLOW 


Programma in fig. 109. Esempio in fig. 110 


:l O 

IN P L 

T 

N 


3 5 O O 

r e: m 


CONUERSIONE DA 


3 5 1 0 

r e r -1 


D E C I r-1 PI L E H EH N ARI O 

3 r C' 0 

F Pi 57 





! et -v 

CE' 

.... 1T1 


3 5“ ri 0 

1 F“ L 


*E> N THEN GOTO 

3 5 70 

•JG C‘ O 

LEI 

E-. 

=:• E. + 1 


3 G o 0 

G Ci T C 


3 5 4. G 


£;;; m "' i~’i 

1 p:' 

F : 

fife: 1 ! . 1 1 


31. è; 0 

!.E 1 

t ) 

~ N 



F O R 

c 

~ E! ~ 1 TO C 57 E P 

- 1 

3 E. o 0 

J p"' ~T'* 

IX 

1 X 

iT 1 **♦" L..* 


3 H j, 0 

I r 

... 

E > ”0 TFiEN L. ET 

B $ - B $ + " 1 

3 6 £' O 

IF .J 

—, 

K < 0 THEN L ET B 

$-B $ + "O" 

3 6 3 0 

IF ... 1 

— 

K > — 0 THEN LET 

'.i - , J - H. 

3 6 4 O 

NEXT 


c 


3 6 5 O 

C L S 




3 6 5 0 

PRINT 

" N* DECIMALE: 

" N 

3 6 7 0 

P R I NT 



3 6 0 

F ' R I N 

“T“ 

i 

“ ~ B 1N A R 1 ù . ( 

r -1 5 B > > 

> ♦. • c 

3 >3 'ri O 

R I N"1 

E$ 


3 7 010 

C O P'v 





Figura 109 
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DECIMALE 


5 0909 


N" 

=• S IN R R 1 ili t fi li B > > :• > L. S ti 

•1 1 0 0 0 1 1 0 1 1 O 1 1 1 0 1. 

Figura 110 

Programma di riunione delle 
routines di conversione numerica SLOW 

I sei programmi di conversione numerica appena descritti possono essere riuniti in 
una sorta di calcolatrice per Programmatori togliendo da tutti e sei i programmi le 
linee 10 ed aggiungendoli al programma di fig. 111. 


1 0 (•■■■! L 1' 1 U H L. U U !.WT fi I U G 

t.''i jw., 1 h" j'“i j-"' E |R i 1 (H (R 1-11*1 Hi !.. I F 1 1 

10 0 0UC.ll 1 


.«♦ .1 .“*k 

J„ HI,' 

»•*". -f k * “-t“ « • 

i- f>. J„ 1 N 1 f ' 

r-«; 

k a *•*-- <r“- 

t • r" 7 r • *~. 

F: IR E 

N“ " 




12 0 

P R 1. N 1 -• 

. 

— - — — -- — —• — —* —* 

—• — — — — — — — 

1 3 0 

fi 1 ! 

PRIMT TP 

E; 

3 : "0 

GIN fi R I 

14- 0 

RE: IMI 1 H 

6 

5 .! ' ' D 

DECXMR 

L... C... 

1 E 0 

P R I NT T R 

B 

ir* • * • ri" 

ESEDEC 

IMRLE 

1 ' 




16 0 

IE IN K E Y 

$ 

= " 6 " IH E IT 

U O T 0 210 0 

170 

IF INKEY 

$ 

-"D" THEN 

GOTO 350 

18 0 

IF INKEY 

$ 

= " E" THEN 

G 07O 5 0 0 

190 

GOTO 160 




2 0 0 

C L. 3 




2 1.0 

PRINT "IN 

SE RIPE N" 

IN BINAR 

i o ( 

1 / 0 j ' ' 




2 2 0 

PRINT “ i: 


MSB > > > LS 

B li E PRE 

MERE 

N E Ut L INE " 




2 3 0 

IN P UT R $ 




2 4- 0 

F 0 P. R = I. 

T 

ci l e: n r $ 


25 0 

IF C : 0 D 6 

R 

È ( R ’T O i > 2 

9 Ci R C 0 D 

E R$ ( 

Pi T" O } \ 


THEN GOTO 

2 3 0 

i.t 1 

N EXT fi 




2 7 Gì 

C L. 8 




2 3 0 

P R I NT.P 


EMERE : 

P E R C O N 

E RTIRE IN" 




2 9 0 

PRINT 

— 




Figura 111 (Continua) 
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30 0 
F ' 1 

PRINT TRE: 5- ; 

•' D 

DECIMfiL 

” 3 10 

PR1NT TfiEi 5j 

"E 

ESfiDEC I 

M RLE' 

* 



32© 

IF INKEY$="D 

" THEN 

GOTO 100 

0 




3 3 0 

IF INKEY$="E" THEN 

GOTO ISO 

3 4 0 

GOTO 320 



350 

U L fi 



36 0 

i i 

PRINT " INSER 

IRE N" 

DECIMfiLE 

37 0 

PRINT "E PREMERE N E U LINE" 

3 0 0 

INPUT fi$ 



390 

FOR fissi TO LEM fi $ 


400 

IF CODE fi $ C fi 

T O 3 > 

37 OR COD 


E fi $ ( fi TO !i 128 THEN GOTO 3 80 


410 NEXT fi 
4 15 LET N=UfiL fi $ 

4 4' O C L S 

4 30 P RINT "PREMERE: PE R CO NU 

ERTIRE IN" 


440 

PRINT "- 

i i 

- - 

— 


4 50 

t t 

PRINT TfiB 

5' 

' E: 

BINAR IO 

460 
MOLE ' 

PRINT TfiB 

i 

ET | ♦ 

' E 

ESfiDECI 

4 70 

0 

IF INKEY$ = 


' THEN 

G O T O 3 5 0 

4 80 

IF INKEY$= 

"E ' 

’ THEN 

GOTO 30© 

Hi' 

4 9© 

GOTO 470 




500 

C L S 




5 10 

PRINT "INS 

ERIRE r-r 

ESfiDECIM 

pile " 





5 20 

PRINT "( 0 

s, * 

> F 3 E 

PREMERE 


NEUIL INE " 

530 INPUT fi$ 

540 FOR fi = l TO LEM fi $ 

55 0 IF C Ci D E fi $ t fi T O 3 > 4 3 O R C Q D 
E fi $ i' fi TO 3 <28 THEN GOTO 530 
560 NEXT fi 

5 7 0 C l_ 5 

5 3 O PR I NT '' P RE r-1 E R E : RE R C ONU 

E RT IR E IN ' ' 

590 F'RINT "- 


Figura 111 (Continua) 
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BINARIO 


600 PRINT TRE; 5;"B 

i i 

610 PRI NT T RB 5 ; "D DECIMRL 

E ** 

6 2 0 IF INKEY$ = "B" THE N GOT O 250 

0 


6 3 0 

IP INKEY$ 

= “ C 

THEN GOTO 

20 0 

0 





6 4- 0 

GOTO 6£' 0 




Fi F 0 

PRINT AT 

10 

0.1" P R E f-1 ERE 

NEUL 

IN E 

P E R " 




6 60 

PRINT AT 

.1 

-L J.. 

0 ; "UN" ALTRA 

CON 

U E R: S 

IO N E ' ' 




6 7 0 

INPUT X $ 




6 S 0 

C L. S 




6 9 0 

G O T O 1 0 0 




11 5 0 

G O T O F. FI 0 




1 S 1 0 

G O T O 6 6 0 




2 12 0 

G OT O 6 5 0 




;? t. 9 0 

G OT O 6 5 0 




3 £ 3 0 

GOTO 65Ó 




3 7 10 

GOTO 650 





Figura 111 (Fine) 


PREMERE: PER INSERIRE W 


B BINARIO 

D DECIMALE 

E E S RDECIMALE 

Figura 112 


INSERIRE N" IN BINARIO ( 1/0 ) 

< MSB >>> LSB !• E PREMERE NEULINE 

Figura 113 


INSERIRE N" DECIMALE 
E PR E M ERE N E ULIN E 

Figura 114 


INSERIRE N- ESADECIMALE 
• 0 > > F ) E PREMERE NEULINE 


Figura 115 


58 




Dopo di ciò, dando il RUN, il programma chiede all’inizio che tipo di numero si 
vuole convertire (fig. 112). 

A seconda del tasto premuto uscirà sul video una delle tre richieste di inserimento di 
un numero visibile nelle figure 113, 114 e 115 a cui seguirà una delle corrispondenti 
tabelle delle figure 116, 117 e 118 che chiede in quale codice deve essere convertito il 
numero inserito. 


PREMERE: PER CGNUERTIRE IN 


D DECIMALE 

E ESRDEC If-IRLE 

Figura 116 


PREMERE: PER CGNUERTIRE IN 


B BINARIO 

E ESRDECIMRLE 

Figura 117 

PREMER.E : RER CONUERT IRE IN 

B BINARIO 

D DECIMALE 

Figura 118 

PREME RE MEU LINE PER 
LIN ■ R L. T R R C O N U E R S IO N E 

Figura 119 


A seconda della conversione effettuata il risultato sul video sarà uno di quelli già 
visti come esempio nei sei programmi precedenti (figure 100, 102, 104, 106, 108, 
110) insieme alla scritta di fig. 119 che chiede se si vuole effettuare un’altra 
conversione. 

Nelle conversioni da decimale a binario e da decimale a esadecimale le cifre 
67.092.480 e 67.108.864 sono rispettivamente i due numeri massimi da inserire oltre 
i quali il programma può sbagliare o arrotondare. 
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ANIMAZIONI 


Countdown e lancio missile SLOW 

Il primo programma di animazione (fig. 120) disegna sullo schermo un cielo 
notturno con una rampa di lancio ed un missile pronto a partire (fig. 121). 
Terminato il conteggio alla rovescia che dura 10 secondi il missile parte (fig. 122) 
per poi sparire nella parte alta dello schermo. 

Per ottenere un movimento rapido del missile e per non vedere il disegno dello 
stesso formarsi ad ogni spostamento è stato necessario utilizzare una breve routine 
in linguaggio macchina contenuta nella stringa A$ (linea 130) e caricata nella RAM 
all’inizio del programma. La routine viene descritta più dettagliatamente qui di 
seguito: 


Indirizzo Codice 
RAM decimale Mnemonico 


20224 

20225 

20226 

20227 

20228 
20229 

20330 

20331 

20332 

20333 

20334 

20335 

20336 

20337 

20338 

20339 

20340 

20341 

20342 

20343 

20344 

20345 

20346 

20347 

20348 

20349 

20350 

20351 

20352 


001 -LD BC, nn 

000 ì 

000 1- Numero caricato dal BASIC 

017 ) 

033 -LD DE, 33 

000 \ 

042 

012 -LD HL, (16396) 

064 ) 

009 -ADD, HL, BC 

Mi) - LD < HL >’ 5 

025 -ADD HL, DE 

LD(HL). 5 

025 -ADD HL, DE 

mi) - LD < HL) - 6 

035 --INC HL 

f 2 g }-LD (HL), 129 

043 -DEC HL 

025 -ADD HL, DE 

®2g )-LD (HL), 128 

035 --INC HL 

}-LD (HL), 128 

201 --RETURN 
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2: 0 K e:. M ir L h N C : I O M I S S T L E 
100 FAST 


1 itì L E f Fi ~ Fi 0 £ £ 4 

•i .tu : e::* -?**' 1 1 .~u <tu i 


-L «il* 

000 

i™. L_ * N ai “ kl* ili . 1 X 

0 4 2: 0 12 0 6 4 

009 054 005 025 

0 5 4- 

0 0 5 0 2 5 0 5 4 

0t 0i 6 0 3 51 0 5 4 1 2 9 

0 4 3 

i t 

0 o 0 0 5 4 . .4 0 

0 3 S 015 4 12 8 2 01 1 

14 0 

F O R ...l - 1. T D 

!.. FN R$ STER 4 

15 0 

POKE Fi , URL 

Fi $ ( ■_! T 0 . J + 2 ) 

16 0 

L. ET Fi = Fi + 1 


■1 "7 0 

NEXT J 


1 8 0 

F O R F ss 1 T O 

•“» £i 

190 

r—~ | > 1 J 1 J | 


200 

N E XT F 


P 1 0 

PRINT RT 18 

, 20 ; "X 1 ’ 

2'2 0 

PRINT RT 19 

, 20 ; "XX ' 1 

2 3 0 

PRINT RT 20 

. 2 0 ; " X X 1 ‘ 

240 

PRINT RT 21 


"&50 1 

PRINT RT 18 

, is; "1 ■ 

2 E 0 

PRINT FlT 19 

, is; "11" 

2 70 

PRINT RT 20 

, 18; "■■3" 

2 8 0 

RflND 


2 90 

F O R 5 = 1 T O 

2 0 

300 

LET Lsl+INT 

CRND*141 

3 10 

LET C=l+INT 

i R N D * 3 1 1 

3 2 0 

“• rs 

IF C>15 RND 

C < 21 THEN GOTO 

-L. hJ 

3 2; 0 

LET K = 1. + I NT 

(RND *2) 

4 0 

IF K = 1 THE N 

PRINT RT L ,G; "E 


2 5 0 IF K=2 THEN PRINT flT L., C;"H 


3 5 0 

NEXT S 





3 7 0 

S L. O U 





3 8 0 

PRINT 

RT 

19,2: 

6 ; "00 

: 0" 

3 9 0 

F G R T = 

9 

T 0 0 

STEP 

- 1 

4 00 

F“ O R D = 

1 

T 0 2 5 



4 1 0 

NEXT n 





4 20 

P W 1 N i 

FiT 

19,3 

0 ; T 


‘-‘1- o Ci) 

NEXT T 





4 4 0 

F D R H = 

F, 

0 T 0 

19 STEP -33 

45 0 

P O K E 2 

0 2 

2 5 , H - 

t I NT 

( H 2 5 e. 


Figura 120 (Continua) 
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>’■ j y*i Hi H 
i?ì 0J 010 










4- 6 0 

P O K. E 

909 

4 Fi , 

I NT 

4 7 0 

LET Z 

= LI 5 

R 9 

0994 

4 00 

NEXT 

H 



4 9 0 

P R I NT 

HT 

0 , 

1 Fi ; 11 

5 0 0 

P R I NT 

ITT 

1 , 

is ; “ 

5 10 

P R I NT 

RT 

c.:. i 

13 ; " 


« H 



5 e, ;i 


Figura 120 (Fine) 



CaLeldOsCoPiO SLOW 

In un caleidoscopio diviso in 4 zone un oggetto visibile in una zona deve apparire 
immediatamente e simmetricamente nelle altre tre. 

Per questo scopo la grafica del BASIC non è sufficientemente veloce, per cui anche 
in questo secondo programma di animazione (fig. 123) la maggiore velocità nel 
disegnare sullo schermo è ottenuta con la routine in linguaggio macchina contenuta 
nella stringa A$ (linea 300). 

La fig. 124 riporta un esempio di disegno prodotto dal programma, disegno che si 
modifica continuamente e velocemente sullo schermo. 
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Figura 122 


Così com’è il programma disegna sullo schermo in media un terzo di caratteri 
normali, un terzo di caratteri inversi ed un terzo di spazi bianchi, modificando le 
linee 180, 190, 200 come in fig. 125, il programma disegnerà sullo schermo solo 
caratteri grafici, diretti e inversi e spazi bianchi (fig. 126), che cambiano di conti¬ 
nuo. 

Il programma può essere fermato premendo il tasto S. 

Qui di seguito viene esposta più in dettaglio la routine in linguaggio macchina 
utilizzata dal programma: 

Indirizzo Codice 
RAM decimale Mnemonico 


20230 

20231 

20232 

20233 

20234 

20235 

20236 

20237 

20238 

20239 

20240 

20241 

20242 

20243 


022 

000 

042 

012 

064 

237 

075 

001 

079 

099 

237 

075 

003 

079 


LD 

D, n 

(n : 

LD 

HL, 

(16396) 

LD 

BC, 

(20225) 

ADD HL, BC 

LD 

BC, 

(20227) 
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Indirizzo Codice 
RAM decimale Mnemonico 


20244 

20245 

20246 

20247 

20248 

20249 

20250 

20251 

20252 

20253 

20254 

20255 

20256 

20257 

20258 

20259 
20260- 
20261 
20262 

20263 

20264 

20265 

20266 
20267 
20268»- 
20269 
20279 

20271 

20272 

20273 

20274 

20275 

20276 

20277 

20278 

20279 

20280 
20281 
20282 

20283 

20284 

20285 

20286 

20287 

20288 

20289 

20290 

20291 

20292 


237 

066 

205 

073 

079 

237 

075 

003 

079 

009 

009 

205 

073 

079 

033 

180 

002 

237 

075 

001 

079 

237 

066 

034 

001 

079 

042 

012 

064 

237 

075 

001 

079 

009 

237 

075 

003 

079 

237 

066 

205 

073 

079 

237 

075 

003 

079 

009 

009 




1 “ 


SBC HL, BC 
• CALL 20297 

LD BC, (20227) 

-ADD HL, BC 
-ADD HL, BC 

■CALL 20297 
•LD HL, 692 

-LD BC, (20225) 

SBC HL, BC 
-LD (20225), HL 

LD HL, (16396) 

LD BC, (20225) 
-ADD HL, BC 
■LD BC, (20227) 

■SBC HL, BC 
■CALL 20297 

LD BC (20227) 

■ADD HL, BC 
■ADD HL, BC 
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Indirizzo Codice 
RAM decimale Mnemonico 


20293 

20294 

20295 

20296 
120297 

20298 

20299 

20300 

20301 
w 20302 
.5 20303 
3 120304 
S 20305 
•a 20306 
" 20307 

20308 

20309 

203 1j0 

20311 

120312 


10 REM SftBEQDlSSSOS IH 

20 REM - 

100 GOSUB 270 
110 SLOU 
120 RRND 

130 LET T = 4-9+66*1 NT (SiRND) 

14-0 LET P ss 1 + 2 * I NT (5*RND) 

150 POKE 20225jT- (INT (T/256) ) * 
2 5 6 

160 POKE 20226,INT (T/256) 

170 POKE 20227,P 

ISO LET X = INT (192*RND) 

190 IF X > 63 THEN LET X = X + 64- 

200 IF X >191 THEN LET X=0 

210 POKE 2023l.X 

220 LET M = IJ S R 20230 

230 FOR R = 1 TO 1 

24-0 NEXT R 

250 IF INKEY $ = "S" THEN GOTO 370 
260 GOTO 130 
270 FflST 

290 POKE 20226 0 

30 0 LET fl$ = "022 000 04-2 012 06 4- 

237 075 001 079 ©09 237 075 003 

Figura 123 (Continua) 
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079 

2 3 7* 

066 205 

073 

079 

2 O <’ 

375 

00 3 

079 

00Q 009 

205 

073 

0 79 

0 3 3 

160 

002 

237 075 

0 0 1 

079 

•Z* ■=; “7 

i_ *— 1 i 

06 6 

034- 

00 1 

079 ©4-2 

Ó 12 

064- 

2 3 7 

075 

00 1 

079 

009 237 

075 

003 

079 

2 3 7 

0 6 6 

£05 

073 079 

23 7 

075 

00 3 

079 

009 

009 

205 073 

079 

201 

114- 

035 

114- 

00 1 

032 000 

009 

114- 

0 35 

114- 

00 1 

0 34- 

000 237 

0 6 E' 

20 1” 



3 10 

LET 

fi = 2 0 2 3 0 





32 0 

F OR 

L = 1 T O 

L E N 1 

fi$ STEP 4- 


3 3 O 

POKE 

fi , U fi L 

fi $ ( L 

T O L + 2 !i 


3 4-0 

LET 

fi = fi + 1 





35© 

NEXT 

L 





3 6 0 

RETURN 






Figura 123 (Fine) 
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PP 
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Figura 124 


ISO LET X = INT (31*RND) 

190 IF X>10 THEN LET X=X+117 
£00 IF X >138 THEN LET X=0 


Figura 125 
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Figura 126 


RoMbOsPiRaLe SLOW 

Anche senza ricorrere a delle apposite routines in linguaggio macchina, si possono 
ottenere delle buone animazioni. Una di queste è ottenuta dal programma Rombo¬ 
spirale (fig. 127). 


10 

REM SOfflBSSSlSRHE 


10 0 

FLOU 



1 1 O 

L_ ET C = 1 



1 S 0 

G O S U E: 3 7 0 



130 

F GR P = 1 TO 11 



14-0 

PRINT RT 1£ -P 

, P + e; .i 

C: HR$ X 

15 0 

MEXT P 



1 "3 0 

FOR N=1 TO 11 

STEP 

iZ!. 

1 7 0 

G O S U E 3 7 0 



1 S 0 

F G R P = 1 ~ O 1 £ 

... m 


1 9 0 

PRINT RT -1+P+N,15 

+P;CHR$ 

£00 

NEXT P 



£10 

Q 3 U B 3 7 G 



£ £ 0 

FOR P=1 TO 12 

- N 


£ 3 0 

PRINT RT 10+P 

, £ S - P 

-N,CHR$ 


Figura 127 (Continua) 
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2 4.0 

NEXT P 



250 


37 0 


2 6 0 

FOR P = 

1 T G 1 1 

-N 

2 7 0 

PRINT 

HT 23-P 

-M , 1 7 -F 1 CHR$ X 

£S0 

NEXT P 



2 9 0 

i7 n s Li B 

370 


300 

F 0 R P 

1 T O 1 1 

-N 

3 1 0 

PRINT 

RT 13 - P 

,5+P+N.;CHR$ X 

2 O 

NEXT P 



3; 3 0 

NEXT N 



3 4- 0 

L. ET C = 

f: * i - J 'i 


3 e; 0 

LET X- 

0 


3; 6 0 

buT'ù 1 

20 


3 7© 

IF C: - 1 

T HE N LET X = 1 + 1MT < 12 

*R ND ) 



3 3 0 

IF X > E' 

3 THE N 

L E T X = X + E' 4- 

._]ì y Ci 

RETU RN 




Figura 127 (Fine) 


Tale programma disegna e cancella alternativamente in continuazione, una spirale 
a forma di rombo formata da caratteri scelti casualmente. 

La spirale viene disegnata o cancellata partendo dall’esterno verso l’interno. La 
spirale appena completata appare, per esempio, come in fig. 128. 


S •: 

c 


PS!' 

s. 4 

e 


SI"'-! 

W 0 u 
tS •- ■ S u 

E c M 0 u 
m c ** o 0 u 

e; p 0 LI 

2 E. 0 0 U 

: 2 + 3 fi , 0 „ U 

l cs * ® li... Ei _ 

B SS ■ H ii 13 E! 

D sa : S .aaELH 

1% H...PJSI0 

, Ih fri m tri EJ 

la iitì B 0 

, m. EH 


r»" 


*r* 

i,<w i »«,•* 


'wj; 

• .. ■ , £-4 

È _ti 
I 

Figura 128 
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Animazione esplosione (con sonoro) 


SLOW 


Un’altra animazione unicamente in BASIC è l’esplosione di un oggetto colpito da 
un proiettile creata dal programma di fxg. 129. 


10 

REM ANItinZ 

IONE ESPLOS 

3 0 0 

5! ÙU 


1 10 

PRINT RT 10 

, 15; " mm" 

i a 0 

PRINT RT 11 

, 15; *• Hi" 

1 3 0 

PROSE 50 


’"j ltn| 

POKE 9999,i 

3 9 

14 0 

F O R fl = 1 T O 

3 0 

J. E; 0 

PLOT fl,21 


16 0 

ONPLOT R-l, 

ro 

.1 7 0 

3 EXT R 


3 ftfl 

ONPLOT 30 j 2 

1 

19 0 

ONPLOT 32,2 

1 

. ì z* 

PUKE 9999,7 


. : fili 

PROSE IO 


l 0 

OR K = 0 TO 

Fi 

*... 

IPLOT 31- K 

7 £ 0 - K 

*1 

XPl.OT 31-K 

2 1 

«r’ 1 ! • C • 

■ NPl OT - 3. -K 

2 :? + K 

p : .'■} 

onplot sa.a 

0 - K 

p 

o- ' p l. O “1 3 9,2: 

£ + K 

;77' « ' 

iPLOT" 30 +K 

,20-K 

t.-. -, ' 

-, l OT 33 tK 

, 2 1 

2 vj 

L IPLOT 33+K 

, 22+K 


- 5 POKE 99 99,15 
3v O Z'- K=5 THEN GOTO 4.0 0 

3 IO PLOT 30 -K .19-K 


3 2 0 

PLOT 

3 0-K , 21 

330 

PLOT 

30-K ,2 3 + K 

3 4-0 

PLOT 

32,19-K 

350 

PLOT 

3 2,2 3 + K 

3 S 0 

PLOT 

34-+ K , 19- K 

37 0 

PLOT 

3 4- + K . 9 1 

3 S 0 

PLOT 

34.+K , 23+K 

ITT 

P O K E 

9 9 9 9,1 '1 

3 9 0 

NEXT 

K 

4-00 

STOP 



IONE 


Figura 129 


Le figure da 130 a 136 mostrano in sequenza alcune fasi dell’esplosione. Il program¬ 
ma ha anche quattro istruzioni (135, 195, 295, 385) per avere anche dei suoni una 
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volta che sarà collegata la scheda musicale che è presentata in dettaglio nel capitolo 
sulla musica. 



Figura 130 



Figura 131 


■ ■ is 
* * 
m ■ « 

Figura 132 


■ ■ ■ 
■ ■ 
■ ■ ■ 

Figura 133 


■ ■ ■ 

Figura 134 


Figura 135 


Figura 136 


Programmazione universale 

animazione con PRINT AT SLOW 

Una complessa animazione può richiedere decine di linee di programma con 
PRINT AT. 

Come già visto nel capitolo sulla Grafica, una lunga serie di linee con PRINT AT 
può essere condensata in un programma più breve. 

Il programma universale di animazione di fig. 137 è in gran parte uguale al 
programma universale per PRINT AT di fig. 26 con l’aggiunta, però di alcune linee 
per aggiungere la funzione del Tempo. 

Anche nel programma di fig. 137 i codici per le coordinate delle linee (in L$) e delle 
colonne (in C$) sono quelli elencati nella tabella 1. I caratteri sono sempre nella 
stringa X$ mentre i Tempi tra l’esecuzione di un PRINT AT e il successivo sono 
contenuti nella stringa T$ e codificati secondo la tabella 2; tali tempi sono in una 
scala arbitraria, vale a dire £ non corrisponde ad un secondo ma solo al tempo più 
breve, e allo stesso modo X rappresenta solo il tempo più lungo. 

Se si ha bisogno di un disegno complesso insieme ad una lunga animazione si può 
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PROGRHM MR UN IUERSflLE 
R NI MRZIO N E C0N 

ini ÌÉ E IM 5L 01.-.I 


10 r e r -1 
£0 REM 
3© REM 

6 6 POR H=5 T O 14- 

7 7 PRINT RT H , 10 ; " 

NEXT H 

PRINT RT 15.10; 

L mi 

R E r-1 C 0 D I c I LI N E E IN L $ 

L E 'T L $ = " 0 0 112 £ 3 3 4 4 5 5 E. 6 7 7 S S 9 


i_j i_j 

3 9 
10 0 
1 1 0 
1 £ 0 

9 R R B E: C C D D E E D D C C E; B R R 9 9 S S 77665544 3 

3££ 1100" 

130 REM CODICI COLONNE IN C$ 

14 O L E T C $ = " 7 7 5 S 9 9 R R E B C C D D E E D D C 

C E. B C C D D E E D D C C B B C C D D E E D D C C B B C C D D E 

EFFGGHH" 

150 REM CARATTERI IN X$ 

160 LET X $ -" M G U 3 H 


». 


UH 


m 


i 0 r e m t e r-i p i 

100 LET T $ -" > > 
£££;£££• £ £ 


E3 @ E 

IN 


r-1 Hill TTv 

i i B ss aa o 


£'$$$$$$" 

«t“ r*“- 


13 0 

I F L E N L. $ < 

> L.EN C$ OR LEN C $ 

< > L EI" 

■1 X $ OR LEN 

X $ < > L. E N T $ THE N 

!„., 

£ E' 0 


£ O 0 

p O R P =■ 1 T 0 

L E N X $ 

£ 10 

PRINT RT C 

ODE L$(P TO )-28, 

C0D E 

C $ < P T O ) - 

2: s ; X $ ( P T o P ) 

•1 

p G R T = 1 T 0 

CODE T $ (P T0 :i -1 

.3 0 

N E XT T 


£ 4 0 

NEXT P 


1:5 0 

ST 0 P 


£00 

PRINT RT 0 

, 10; 

£ 7 0 

PRUSE 100 


£0 0 

FAST 


2 9 0 

LIST 



Figura 137 


inserire a questo programma di animazione in SLOW dopo il programma per 
disegnare di fig. 26, in FAST. 

Al programma universale di fig. 137 sono state aggiunte alcune linee (66,77,88,99) 
e nelle stringhe L$, C$, X$, T$ sono stati inseriti i codici e i caratteri per un esempio 
di animazione, esempio che mostra un oggetto in movimento che entra angolato in 
un contenitore, rimbalza sulle pareti cambiando continuamente forma ed esce nel 
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Tabella 1 


CODICI BINEE E gOLONNE 


H/B 

COD . 


COD . 

H 

eoe 

0 

■ 0 

■ m , -T 

-J., _L 

> E; 

C 

L... u>... 

> M 

1 

J-. 

12 

> C: 

2 Fi 

> M 


2 

1:3 

D 

£4 

> Ci 


.__"i 

14. 

> E 

CX. 

> P 

4 

■ 4- 

15 

> F 

£ 6 

> Gì 

C. 

5 

16 

> G 

2 /' 

> R 

F; 

C'- ( 


\ M 

C 


1. 


d!* 

T 

4 „J, 

? 9 

F Fi 

4 Ì 

Q 

c. 1 

3 0 

:■ K 

3 1 

\ i, ,i 

•1 

-L SLi 

H 

2 1 

•, 1 

•* L... 





Tabella 2 




c 

O D IC I 

BEMP I 



01 

COD . 

01 

COD . 

Q 

C O D 

1 

£: 

19 

iTT 

3 7 

> K 

•"“i •• 

u~‘. 

$ 

£0 :• 

Fi 

3 3 

> L. 

3 > 


21 ; 

4 

3~9 

> M 

4- > 


*“i • i 

U«i l i* 

C“ 

40 

> N 

5 > 

i] 

2 3 !• 

0 

4 1 

n 

F, > 

) 

£4- 


4 £ 

> p 

“M 


£ 5 

Ci 

4 3 

O 

C! 1 


2 6 ■ 

9 

44 

> R 

9 > 

- 

2 / 

fi 

4 5 

C 1 

10 > 

4* 

2 Fi 

E: 

4 6 

T 

11 > 

— 

£ 9 

r: 

47 

> IJ 

12 > 


3 0 ; 

D 

4- o 

U 

13 > 


31 ? 

E 

4 9 

> I...I 

14- 

\ 

3 2 !• 

F" 

5 0 

V 

1 5 > 

.i 


G 



1 6 > 

M 

3 4 

H 



17 > 

0 

3 5 

I 



1 3 > 

1 

3 6 := 

u 




|| | E Ì .illllllllll 

Figura 138 









senso opposto. La linea 160 può essere modificata come indicato in fig. 138 (con 29 
spazi inversi alternati a 29 spazi normali) per fare in modo che l’oggetto in 
movimento abbia sempre la stessa forma. 


Programma universale animazione 

con PLOT-UNPLOT SLOW 

Se si vuole una risoluzione quattro volte maggiore e se non è necessario inserire dei 
caratteri, si può realizzare un’animazione con PLOT e UNPLOT utilizzando il 
programma di fig. 139. 

Tutte le istruzioni di animazione sono inserite in un’unica stringa (C$) ed ogni 
istruzione è costituita da sei caratteri che formano due numeri da due caratteri 
separati da un segno + oppure - e seguiti da uno spazio che separa un’istruzione 
dall’altra. Il primo ed il secondo numero di ogni istruzione rappresentano rispetti¬ 
vamente le coordinate X e Y del pixel da plottare (se tra i numeri c’e un +) o da 
unplottare (se tra i numeri c’è un -). 
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PROGRAMMA 

UNIUERSALE 


£0 

R E M 



R N IM R Z IO N E 


C O M IsJfli 


3 0 

R E M 



iHEIlEO e in 

■=, L G U 


1 0 0 

S L 0 U 






2 11 0 

R E M 



C0 0RDINAIE 


I w c $ 


120 

r e r-i 



1® UHL.URE 

- 

C O O R D . X > 


13 0 

R E M 



2“ URLORE 

.... 

CuùRD . <V‘ > 


14-0 

REM 



R L O EMTRO 

.“'i 

CELTA MODO 


2 5 0 

R E M 



+ StUàSS 


- ffcjiSisditriÉ 


16 0 

LET 


c 

$="09+30 0 

t’ 

+ 3 2 0 8 + 3 2 1 

0 

+ ’-u 

1 £ + 

•“j 

•“l 

14+32 If ’• 

3 

2' 1 3 + 3 2 19 + 

•~Z‘ 

£ 0 9 

-30 


0 9 + 3 1 0y- L 1 


0 9+ 3 9' 09+ 3 lì 


0 9 - 3 

3 1 

.-1, 

K-.» 

+ 

33 10-33 11 

t J' j., 1 — j.. 

1 

+ 3 £ 

1 1 + 

-“ 1 - 
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Figura 139 
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Anche in questo caso la stringa con le istruzioni contiene un esempio di animazione 
che non ha un’utilità pratica ma che mostra il funzionamento del programma. 

Figura 140 

MnraiMtJl ■ mi 

Figura 141 


* 

liiiiiiiiiiiaiawaaM'iiiiiiiwi 

Figura 142 


L’animazione (di cui nelle figure 140, 141, 142 si può vedere l’inizio, una fase 
intermedia e la fine) rappresenta una sorta di muro con. dei fori che vengono 
attraversati e riempiti da un pixel in movimento. 
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PROGRAMMI PER INTERFACCIA 


Circuito di interfaccia per ZX80-ZX81 

Con solo due integrati (due comuni TTL-LS) e un costo totale inferiore a 5000 lire si 
può realizzare un circuito di Interfaccia ad 8 uscite che permette di collegare uno 
ZX81 o un ZX80 al mondo esterno consentendo di realizzare numerosi programmi 
di automazione, di controllo, di robotica, ecc. altrimenti non possibili con il solo 
computer. 

Oltre a ciò il circuito di Interfaccia è indispensabile per pilotare il circuito musicale 
esposto nel prossimo capitolo, così come altri circuiti realizzati da ciascun posses¬ 
sore di un ZX. 


IMPORTANTE - L’interfaccia va collegata tramite dei fili direttamente al circuito 
stampato dello ZX. 

TENERE PRESENTE CHE UNA ERRATA COSTRUZIONE DEL CIRCUITO 
O UN ERRATO COLLEGAMENTO DEI FILI AL CIRCUITO STAMPATO 
PUÒ’ CAUSARE DANNI AL COMPUTER, per cui se vi occupate di programma¬ 
zione ma non di circuiti elettronici, è preferibile che facciate realizzare o controllare 
il tutto ad un Tecnico che abbia già esperienza di montaggi e saldature. 


Lo schema del circuito di Interfaccia è in fig. 143 ed usa, come già detto, due 
integrati: un 74LS373 che contiene 8 memorie LATCH ed un 74LS27 che contiene 
tre NOR a tre ingressi utilizzati per la decodifica dell’indirizzo di memoria. 

Le configurazioni dei due integrati sono in fìg. 144 e 145. 

I quindici ingressi del circuito di Interfaccia vanno collegati, tramite quindici 
spezzoni di filo sottile ad un capo, a quindici-dei quaranta piedini dello Z80. La 
saldatura va effettuata sul circuito stampato dal lato delle saldature. In figura 146 è 
mostrato lo Z80 visto da sotto con indicati i quindici piedini ai quali vanno saldati i 
fili provenienti dall’Interfaccia. Per i collegamenti tra computer e Interfaccia il filo 
più adatto può essere quello per WIRE-WRAP che è appunto molto sottile e ad un 
capo. 

Prima di richiudere il computer controllare di avere collegato i fili esattamente e che 
i fili stessi siano saldati bene e non si stacchino. 

Se avete usato dei fili abbastanza sottili potete farli uscire all’esterno tramite uno 
dei fori già esistenti sui due ZX. 
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74LS27 




OCTAL D-TYPE LATCHES 


3 STATE OUTPUTS 
COMMON OUTPUT CONTROL 
COMMON ENABLE 


TRIPLE 3-INPUT 
POSITIVE-NOR GATES 



74LS373 74LS27 


Figura 144 


Figura 145 



A13 

A14 

A1S 

D4 
03 
DS 
06 
+ 5V 
02 
07 
DO 
DI 


MREQ 


C.l. VISTO DA SOTTO IL 
CIRCUITO STAMPATO 
(LATO SALDATURE) 


Figura 146 







Le dieci uscite dell’Interfaccia (A.H, +5V, GND) vanno collegate ad un connet¬ 

tore del tipo visibile in fig. 147 al quale potranno essere collegati i circuiti esterni 
come ad esempio la scheda musicale. 

Il consumo del circuito senza carico e con i LED non inseriti è di 22 m A, con i LED 
inseriti e accesi può arrivare fino a 50 mA, 



CIRCUITO DI 
INTERFACCIA 


GND O 



OPTO ISO LATORE 
CON USCITA A 
TRANSISTOR 
oppure a: 

• Fotoresistenza 

• Darlington 

• Diodo 

• SCR 

• Triac 

-o 


"^Calcolare in base ai dati 
tecnici dell'optoisoiatore 


Figura 148 


Il funzionamento della scheda può essere verificato, con l’interruttore per l’inseri¬ 
mento dei LED in posizione ON, eseguendo il seguente programma: 


10 FAST (solo su ZX-81) 
20 POKE 8888,0T 
30 PAUSE 25 
40 POKE 8888,255 
50 PAUSE 25 
60 GOTO 20 
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Dopo avere premuto RUN e NEWLINE gli otto LED devono accendersi e spe¬ 
gnersi contemporaneamente al ritmo di una volta al secondo. 

Se qualcuno dei LED non si accende o rimane sempre acceso ricontrollare innanzi¬ 
tutto le linee 20 e 40 del programma, se tali linee sono corrette allora la causa può 
essere dovuta ad un LED difettoso, ad una interruzione, ad un corto circuito, 



Figura 149 



Figura 150 
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all’errato collegamento tra computer e Interfaccia o anche a un integrato difettoso. 
A seconda del programma utilizzato e dei circuiti collegati alle otto uscite, il 
circuito di Interfaccia può essere usato in moltissime applicazioni. 

Alle otto uscite TTL A....H possono essere collegati vari tipi di circuiti. Si possono 
collegare, per esempio, degli optoisolatori (fig. 148) con ingresso a LED e uscita a 
fotoresistenza oppure a fototransistor, a fotodarlington, a fotodiodo, a fotoSCR o 
a fotoTRIAC. L’uso di optoisolatori consente di isolare il computer e l’Interfaccia 
dall’apparecchio che devono pilotare. 

Naturalmente alle otto uscite dell’Interfaccia si possono collegare gli ingressi di 
circuiti logici TTL, TTL-LS, TTL-S, ecc. (fig. 149) il numero di ingressi collegabili a 
ciascuna uscita dipende dal tipo di logica usata. Se con l’Interfaccia si vogliono 
pilotare carichi ad alta tensione e/o ad alta corrente, si possono collegare ad essa 



1/4 W 


Figura 151 

dei Relè a Stato Solido (fig. 150) oppure dei normali Relè Elettromagnetici usando 
per esempio il circuito di fig. 151. Poiché i Relè assorbono molta corrente occorre 
alimentarli con un alimentatore esterno e non tramite il computer. Sempre nel 
circuito di fig. 151 si possono utilizzare Relè funzionanti a tensioni diverse da 12V, 
oppure usare carichi diversi da un Relè, così come anche il transistor può essere 
sostituito con altri tipi oppure con un darlington o un VMOS. 

Infine, l’interfaccia è indispensabile per pilotare la scheda musicale esposta nel 
prossimo capitolo. 

Nel collegare l’Interfaccia ad un qualsiasi carico occorre tenere presente che il 
circuito è alimentato dal computer e che, perciò, occorre limitare la corrente 
assorbita dal suo alimentatore. 

Dalle uscite A....H e +5V insieme, si può assorbire un totale di 100-150 mA al 
massimo (di cui 10-15 mA massimo da ciascuna delle otto uscite TTL e il resto 
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dall’uscita +5V): tale corrente totale può arrivare anche a 200-250 mA se si usa 
Palimentatore Sinclair più grande, alimentatore che è comunque indispensabile se, 
oltre all’Interfaccia, vengono collegati al computer la stampante e/o l’espansione 
RAM. Tenete presente che un eccessivo assorbimento di corrente surriscalda 
l’integrato regolatore a 5V e di conseguenza anche l’interno del computer. 
L’interfaccia viene comandata dal computer tramite una semplice istruzione in 
BASIC (POKE). La POKE può essere compresa tra POKE 8192,n e POKE 16383,n 
si suggerisce, comunque, di usare o la POKE 8888,n oppure la POKE 9999,n in 


Tabella 3 


POKE 8888, 

USCITA ATTIVA 
(“1” logico TTL) 

1 

A 

(DJ0O 

2 

B 

(DI) 

4 

C 

(D2) 

8 

D 

(D3) 

16 

E 

(D4) 

32 

F 

(D5) 

64 

G 

(D6) 

128 

H 

(D7) 


POKE: minimo 8888/ massimo 8888,255 


con POKE 8888/Tutte le uscite DISATTIVATE (“0” logico TTL) 


esempio: POKE 8888,75 

USCITE ATTIVE: A, B, D, G 

(1+ 2+8+64 = 75) 

quanto sono più facili da ricordare e usano solo quattro numeri (in questo e nei 
prossimi capitoli viene usata la POKE 8888 nei programmi che usano solo l’Inter¬ 
faccia, e la POKE 9999 nei programmi che usano la scheda musicale, questo per 
indicare quando la POKE viene usata per produrre un suono). Nella POKE il 
numero “n” va compreso tra 0 e 255, con “n” uguale a 0 tutte e otto le uscite sono 
allo “0” logico, con “n” uguale a 255 tutte e otto le uscite sono all’‘T” logico. 
Le combinazioni richieste possono essere ottenute tramite la Tabella 3; per esem¬ 
pio, se si vogliono attivare le uscite B, E, F, H, occorre sommare i corrispondenti 
numeri della Tabella 3 (2+16+32+128 = 178) ed effettuare l’istruzione POKE 
8888,178. Allo stesso modo si può ottenere qualsiasi combinazione di uscite attive e 
non attive. 
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Nei programmi in cui occorra una maggiore velocità l’Interfaccia può essere 
comandata anche da un istruzione in Linguaggio Macchina, anche in questo caso 
scrivendo un numero (n) in uno qualsiasi degli indirizzi compresi tra 8192 e 16383. 


Programmi 

L’uso dell’Interfaccia è legato soprattutto alle applicazioni ideate da ciascun utiliz¬ 
zatore. In sostanza ognuno potrà collegare il computer tramite l’Interfaccia a delle 
attrezzature, dei servomeccanismi, degli strumenti, ecc. che utilizza nel proprio 
lavoro o nel proprio hobby, questo allo scopo di rendere automatici o più veloci 
alcuni processi o di avere nuove funzioni e applicazioni rese possibili dalla potenza 
e dalla velocità elaborativa del computer. 

Le applicazioni esposte qui di seguito comprendono un programmatore universale 
utilizzabile in molti casi pratici, alcuni programmi di esempio per produrre degli 
effetti di luce ed infine un tasto elettronico per telegrafia. 


Programma universale 

per circuito di Interfaccia FAST 

Il programmatore universale (fig. 152) può eseguire una serie di istruzioni, alternate 
a delle pause di durata prestabilita. 

La stringa D$ (linea 110) contiene in forma decimale le istruzioni sperate da uno 

•10 RE r-1 P R 0 G R R r-1 r-1 R T o R E 
20 REM UNIUERSRLE PER 

30 REM CIRCUITO DI INTERFRCCTP 

100 FRST 
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Figura 152 
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ESEMPIO PROGRAMMA MS PASSI 





IS P O SITI U I 



_.D$ ... 

A 

E C D E F G 



064- 


■ 


100 

PAUSA 

2 5 . 




155 

■ 

■ ■ ■ 

■ 

100 

PAUSA 
— — — — — — 

200 

2 5 . 

■ ■ 

■ 

150 

PAUSA 

3 S . 




015 

■ 

■ ■ ■ 


500 

PAUSA 

1© 5 . 




014. 


■ ■ ■ 


050 

PAUSA 

1 5 . 




100 


■ ■ ■ 


010 

PPìUSfi 

0.2 S . 




128 



■ 

800 

PAUSA 

16 S . 




011 

■ 

■ ■ 


160 

PAUSA 

3.2 S . 




255 

■ 

■ ■■■■■ 

■ 

080 

PAUSA 

1.6 S . 




064- 


■ 


200 

PAUSA 

4 S . 




200 


■ ■ 

■ 

100 

PAUSA 

2 S. 




088 


■ ■ ■ 


223 

PAUSA 

4-. 5 S . 




Figura 153 
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spazio; il numero decimale di ogni istruzione (che deve essere sempre di tre cifre) 
può essere ricavato utilizzando la Tabella 3 in base ai dispositivi (collegati alle 
uscite A....H) che l’istruzione stessa deve attivare o non attivare in quel dato 
momento. 


1 4- SQL ET T = A L_ P $ C A T G Pi + 2 J 
150 POR M=1 TO 50 

160 PAUSE T 

170 NEXT M 


Figura 154 


:.i 4 5i 

HL ET T 

- r i L. 

P $ ( R T O 

j 6 G 

Q p,; 

~ 1 T 

G 3 0 0 0 

16 0 

prìj se 
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17 0 

N E X7 

r-i 





Figura 155 

10 

REM 

LJJC I 

ROTA NT I 

1 0 0 

FAST 



I 1 0 

LET T 

= 1 


1 S 0 

P O K E 


, 1 

1 3 G 

P R U S E 

T 


140 

P O K E 


■“‘i 

,i i _ 

15 0 

P H U 3 E 

T 


J. 6 0 

P O K E 

S 3 3 C' 

, 4 

3 7 0 

P H U P E 

f 


1 S 0 

XF 1NKEY$ 

=“6“ THEN 

1 9 0 

I F T > 

i a ri 

D INKEY$= 

!::: . i "] 

" “T . 1 



4 0 0 

P ù ’ i C.i 

12 G 



a 4- 2 ) 


LET T=T+ 
7 " T hi E W 


Figura 156 


La stringa P$ (linea 120) contiene, invece, le pause che il computer deve inserire tra 
l’esecuzione di una istruzione e la successiva. 

Il programma di fig. 152 contiene nelle stringhe D$ e P$ un esempio di programma¬ 
zione lungo 12 passi, esempio esposto più chiaramente in fig. 153. 

La prima istruzione di D$ è 064 che attiva il dispositivo collegato all’uscita G 
dell’Interfaccia; la prima istruzione diP$ è 100che introduce una pausa di 2 secondi, 
dopodiché viene eseguita la seconda istruzione di D$ ( 155) che attiva altri dispositi¬ 
vi, seguita da un’altra Pausa e così via. 

La sequenza appena esposta può essere, ad esempio, quella di un processo di 
automazione. 
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DAL CIRCUITO DI INTERFACCIA 



Rala' 1ZV—lOOohm min. 


Figura 157 


87 










Senza collegare dei dispositivi alle uscite dell’Interfaccia, il funzionamento del 
programma può essere messo in evidenza dall’accendersi e spegnersi degli otto 
LED. 

Naturalmente la sequenza può esser costituita da un numero maggiore o minore 
delle dodici istruzioni dell’esempio purché il numero di istruzioni contenute in D$ e 
in P$ sia uguale, vale a dire che le due stringhe abbiano la stessa lunghezza. 

I numeri delle istruzioni di pausa contenute nella stringa P$ possono essere compre¬ 
si tra 000 e 999, con una pausa massima, quindi, di circa 20 secondi. Inserendo nel 
programma le linee di fig. 154 i numeri contenuti in P$ non saranno più cinquante¬ 
simi di secondo ma secondi (da 000 a 999). Infine, inserendo nel programma le linee 
di fig. 155 i numeri contenuti in P$ corrisponderanno a minuti. 

Tenete presente che i computer Sinclair non usano come clock un quarzo ma un 
filtro ceramico che ha una precisione inferiore, per cui anche i minuti o i secondi o i 
cinquantesimi di secondo delle istruzioni di pausa contenute in P$ avranno una 
precisione inferiore a sistemi quarzati. 

Luci rotanti FAST 

II programma di luci rotanti (fig. 156) è il primo di quattro effetti di luce che 
utilizzano il circuito di Interfaccia. Per usare il programma occorre collegare a tre 
delle uscite dell’Interfaccia (A, B, C) tre relè (fig. 157), con alimentatore separato 
dal computer, ciascuno dei quali pilota l’accensione di due o più lampadine 
anch’esse alimentate esternamente e disposte come in fig. 158. 



Figura 158 

La velocità di rotazione che parte con il massimo può essere diminuita tenendo 
premuto il tasto “6” e di nuovo aumentata tenendo premuto il tasto “7”. 

Il senso di rotazione può essere invertito senza toccare la sistemazione delle 
lampadine semplicemente spostando il contenuto della linea 160 nella linea 120 ed il 
contenuto della linea 120 nella linea 160. 
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Luci casuali 


FAST 


Il programma di fig. 159 comanda l’accensione e lo spegnimento casuale di otto 
lampadine, collegate alle otto uscite dell’Interfaccia tamite otto circuiti come quello 
di fig. 160. 


10 

REM LUCI C 

fi S U fi L I 


100 

FAST 



110 

LET T = 1 



120 

R fi N D 



130 

.LET N = I NT i 

2 56 *RND) 


14-0 

POKE 8888,N 



150 

IF IMKEY$ = " 

6 1 ' THE N 

LET T'=T + 

160 

IF T > 1 fi N D 

INKEY$ = " 

7 " THE N 


LET T -T- 1 
170 PAUSE T 
180 GOTO 130 


Figura 159 


OTTO CIRCUITI 



(££) » 220V~ 


Figura 160 
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Come nel programma precedente, anche in questo caso, la velocità di cambiamento 
si può diminuire premendo il tasto “6” e di nuovo aumentare premendo il tasto 
“7”, tale velocità si può, inoltre, rendere casuale modificando il programma come 
in fig. 161. 


1 0 

REM LUCI Cfl 

3 U R L I 

2 0 

REM CON RIT 

R R D O C A 

1 0 0 

F R 3 T 


:1 10 

L ET T - 1 


J P 0 

R A N D 


1. 6 0 

LET N - INI" C 2 

5 6 *RNDj 

1 4. 0 

f ' O K E: 3 8 8 8 , N 


:.i G0 

P R U S E IN T ( 1 0 * R N D I 

„! 0 0 

GOTO 130 



Ufi LE 


Figura 161 


Senza collegare alle uscite i relè e le lampadine il funzionamento di questo e dei 
prossimi due programmi può essere messo in evidenza anche dai LED dell’Interfac¬ 
cia. 


Luci a riempimento e svuotamento FAST 

Sempre con 8 lampadine alle otto uscite dell’Interfaccia si può ottenere un effetto di 
riempimento e svuotamento graduale della linea di luci facendo girare il program¬ 
ma di fig. 162. 

10 REM LUCI A RIEMPIMENTO 

20 REM E SUUOTAMENTO 

100 FfiST 
110 LET T = 1 
12 0 L ET M = 1 

130 IF M = 1 THEN FOR R=0 TO S 

14-0 IF M = - 1 THEN FOR A = 8 TO 0 8 

TER -1 

150 POKE 0SSS 2 R - 1 

160 IF INKEY$ = "6" THEN LET T =T + 

1 

170 IF T >1 AND INKEY $ = "7" THEN 

LET T =T- 1 

180 FOR D = 1 TO T 
190 NE XT O 

20 0 NE XT R 

210 LET M=M*-1 
220 GOTO 130 


Figura 162 
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Anche qui la velocità può essere modificata premendo i tasti 6 e 7. Si può anche 
ottenere un effetto di solo svuotamento modificando le linee 130 e 210 nel modo 
indicato in fig. 163, oppure un effetto di solo riempimento modificando le stesse 
linee come indicato in fig. 164. 

130 POP R=© T G 0 STEP -1 


2 10 P O K E 3 3 3 3 ,3 5 5 

Figura 163 

1. v. i 0 F '....i P H — 0 r I I 
a 1,0 POKE 3 5 83,0 

Figura 164 

Punto luminoso mobile FAST 

L’ultimo programma per effetti di luce (fig. 165) fa muovere un punto luminoso 
lungo la linea di otto lampadine collegate alle otto uscite dell’Interfaccia. 

Di nuovo i tasti 6 e 7 regolano la velocità di movimento. 


10 REM PUNTO LUMINOSO MOBILE 

100 FhST 
110 LET T = 1 
120 POR R = 0 TO 7 

1:3 0 F 1 0 K E 3 3 3 S . 2 * a H 

14-0 IP INKEY$ = "S" THEN LET T =T + 

1 

ISO IP T > 1 RND INKEY$ = "7" THEN 

LET T =T- 1 
160 POR D = 1 TO T 

170 NEXT D 
130 NEXT R 
190 POKE 3333,0 
200 GOTO 120 

Figura 165 


Tasto automatico per telegrafìa FAST 

Sempre utilizzando l’Interfaccia si può realizzare un Tasto automatico per telegra¬ 
fia da 3-30 parole/minuto facendo girare il programma di fig. 166. 
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10 REM TASTO AUTOMATICO 

£0 REM PER TELEGRAFIA 
30 REM 3-30 PAROLE..•'MINUTO 

4-0 PEM 

50 REM <C> = . 

6 0 RE M <B> -■ - 

7 0 RE M 

100 FAST 

110 PRINT "INSERIRE UELGCITh"" 

1 £0 pR INT " 1 - -9 PIJNT I AL SECOND 
O " 

13 0 PRI NT "E PREMERE N E U L. IN E ' ' 

14-0 INPUT P 

150 LEI PsINT P 

160 IF P <1 OR P>9 THEN GOTO 140 

170 L...ET T = I NT (25/P) 

ISO LET TT=3*T 

19 0 C L S 

2 0 0 IF INKEV $ = "C" THEN GOTO 230 

210 IF INK EY$ = "E" THEN G OTO 2 S 0 

220 GOTO 200 

2 30 P OKE 9 9 9 9.2 35 

240 PAUSE T 

25 0 POH. E 9999,15 

2 6 0 P A U S E T 

270 GOTO 200 

260 POKE 9999,235 

290 PAUSE TT 

300 POKE 9999.15 

310 PAUSE T 

320 GOTO 200 

Figura 166 

All’inizio occorre scegliere una delle nove velocità (fig. 167) inserendo il numero di 
punti al secondo (da 1 a 9) quindi, premuto NEWLINE, il computer produrrà una 
serie di punti ogni volta che si preme il Tasto “C” e una serie di linee ogni volta che 
si prme il Tasto “B”; i punti e le linee prodotti sono autocompletanti e la durata è in 
proporzione tra loro e in rapporto alla velocità scelta. 


:ì . c> pu<\j'. j AL SECONDO 

!~ è 11; . i~. f-i i;. t > (-■ N E •-! L 1 N E 


Figura 167 


Come si è detto si possono inserire nove velocità, togliendo però cómplefamente la 
linea 150 si potranno inserire velocità intermedie come 1.5, 7.3, 4.4 punti al 
secondo, ecc. 
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Per utilizzare praticamente il programma del Tasto per telegrafia occorre collegare 
il circuito di fig. 168 tra l’uscita H dell’Interfaccia e l’ingresso CW del trasmettitore. 
Come noterete alle linee 230, 250,280 e 300 è stata usata, invece della POKE 8888 la 
POKE 9999 che, come già detto all’inizio di questo capitolo, indica la generazione 


+ 12V 



di un suono, questo perchè, collegando all’Interfaccia il circuito musicale descritto 
nel prossimo capitolo, si può dotare il Tasto per telegrafia di un monitor sonoro 
senza modificare il programma. 
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MUSICA 


Scheda musicale 

Con una spesa inferiore alle 10000 lire si può collegare ai computers ZX80 e ZX81 
(tramite il circuito di Interfaccia già esposto nel capitolo precedente) una scheda 
musicale capace di produrre 50 note musicali su 4 ottave tramite delle semplici 
istruzioni in BASIC. 

Lo scopo principale è quello di permettere al computer di produrre della musica, 
però tale scheda si presta a molti altri usi come per esempio sonorizzare dei giochi, 
produrre dei segnali di allarme, e, comunque, per inserire nei programmi delle note 
acustiche ovunque può essere utile. 

Il circuito (fig. 169) usa tre comuni integrati TTL-LS più un timer 555, un transistor 
2N2222 e pochi altri componenti passivi. 

Le configurazioni dei quattro integrati e del transistor sono in fig. 170. Il circuito 
può essere montato su un pezzo di circuito stampato già forato. 

È essenziale che le resistenze siano tutte al 5% ( 1/4 W), che il condensatore da 4700 
pF sia del tipo poliestere al 5 - 10 % massimo che i TTL usati siano della serie LS ed 
infine che i Trimmers siano di buona qualità e possibilmente del tipo incapsulato 
(come i Trimmer neri e bianchi della PHIER) in modo che la taratura non venga 
modificata da urti accidentali. 

I dieci ingressi (+5V, A.H, GND) della scheda musicale così realizzata vanno 

collegati tramite dieci spezzoni di filo di tre colori ai corrispondenti dieci morsetti di 
uscita del circuito di Interfaccia (fig. 171), fare in particolare attenzione a non 
invertire tra loro i collegamenti che vanno alle uscite + 5V e GND. 

La corrente media che la scheda musicale assorbe dall’alimentatore del computer 
va dai 30 mA al minimo volume ai 65 mA al massimo volume. Il consumo può 
essere ridotto e la potenza sonora può essere aumentata togliendo il transistor e 
l’altoparlante e collegando l’uscita della scheda musicale ad un amplificatore audio 
più potente ed alimentato esternamente (fig. 172). 

La taratura delle 50 frequenze della scheda musicale va effettuata regolando solo i 
sei trimmers (tml...tm6) in modo da ottenere determinate frequenze di uscita, il 
settimo trimmer (tm7) è usato per la regolazione del Volume, vi è anche un 
interruttore a slitta (SW1) che serve per l’esclusione del suono. Per effettuare la 
taratura occorre collegare un frequenzimetro digitale all’uscita “DFM” della 
scheda musicale (vedere fig. 169) e far girare sul computer il seguente programma: 
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5 • 

</) o ® 

Suo 

He 
= 33 


z 

h u: q 


* (*5 tM 

« E E E 


h i[2| 



vioDVduaiNi ia oimoMio iva 
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5 REM ROUTINE TARATURA 
10 FAST 

20 PRINT “INSERIRE CODICE NOTA” 

30 INPUT N 

40CLS 

50 POKE 9999,N 
60 GOTO 20 


programma necessario per evitare di scrivere ad ogni nota l’istruzione POKE 
9999,n. 

HEX INVERTERS 

WITH OPEN-COLLECTOR OUTPUTS DIVIDE-BY-TWO AND DIVIDE-BY-EIGHT 


Vcc 6A. 6V 5A SY «A «V 

"» U WC O* Qp cwc o» oc 

f _ irirniri2nf _ »rT_r»irvi_ra~ n _ 

ì> 

h h h 


r 

7-ì-L_L 

a: 

"Olii *0l Ji 

1 T 

- 

tA IV 2A ZV 3A 3Y GNO 

74LS05 

74LS93 


DUAL 4-LINE TO 1-LINE DATA 
SELECTORS/MULTIPLEXERS 



74LS153 


Massa [T 
Trigger (T 
Uscita (T 
Azzeramento [7 


3 Vcc 
7] Scarica 
7] Soglia 

7] Tensione di controllo 


SS5 




Figura 170 
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Dopo aver premuto RUN e NEWLINE, le sei tarature vanno effettuate secondo 
l’ordine indicato nella Tabella 4, introducendo per primo il codice 199 e regolando 
il trimmer tml in modo da avere in uscita una frequenza il più possibile vicina a 
523.25 Hz, quindi proseguendo con l’introduzione degli altri cinque codici e con la 



Figura 172 
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Tabella 4 


ORDINE DI 
TARATURA 

POKE 9999, 
(codice nota) 

trimmer 
da regola e 

Frequenza da 
approssimare (Hz) 

r 

199 



523,25 

2 a 

203 



554,37 

3 a 

205 



587,33 

4 a 

206 

tm 

4 

622,25 

5 a 

219 

tm 

5 

698,46 

6 a 

235 

tm 

6 

880,00 

tm 7 - Trimmer VOLUME 


regolazione dei corrispondenti trimmers in modo da ottenere le frequenze indicate 
nella tabella. Nell’effettuare la taratura fare attenzione ad inserire esattamente i sei 
codici e a non sbagliare nello scegliere ogni volta il trimmer da regolare, un’altra 
cosa importante è quella di regolare i trimmers con un cacciavite senza urtare gli 
altri trimmers già tarati e soprattutto senza toccare con le mani i trimmers nè altri 

Tabella 5 


FREQUENZA DELLA SCHEDA MUSICALE 4 OTTAVE - 50 NOTE 

NOTA 

FREQUENZA 
STANDARD (Hz) 

CODICE NOTA 
(POKE 9999,) 

CODICE 

ESADECIMALE 

i 

DO 

65,406 

7 

07 

2 

DO# 

69,296 

11 

0B 

3 

RE 

73,416 

13 

OD 

4 

RE# 

77,782 

14 

0E 


PAUSA 

0 

15 

OF 

5 

MI 

82,407 

23 

17 

6 

FA 

87,307 

27 

1B 

7 

FA# 

92,499 

29 

1D 

8 

SOL 

97,999 

30 

1E 

9 

SOL# 

103,83 

39 

27 

10 

LA 

110,00 

43 

2B 

11 

LA# 

116,54 

45 

2D 

12 

SI 

123,47 

46 

2E 

13 

DO 

130,81 

71 

47 

14 

DO# 

138,59 

75 

4B 
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Tabella 5 (Continua) 


FREQUENZA DELLA SCHEDA MUSICALE 4 OTTAVE - 50 NOTE 

NOTA 

FREQUENZA 
STANDARD (Hz) 

CODICE NOTA 
(POKE 9999,) 

CODICE 

ESADECIMALE 

15 

RE 

146,83 

77 

4D 

16 

RE# 

155,56 

78 

4E 

17 

MI 

164,81 

87 

57 

18 

FA 

174,61 

91 

5B 

19 

FA# 

185,00 

93 

5D 

20 

SOL 

196,00 

94 

5E 

21 

SOL# 

207,65 

103 

67 

22 

LA 

220,00 

107 

6B 

23 

LA# 

223,08 

109 

6D 

24 

SI 

246,94 

110 

6E 

25 

DO 

261,63 

135 

87 

26 

DO# 

277,18 

139 

8B 

27 

RE 

293,66 

141 

8D 

28 

RE# 

311,13 

142 

8E 

29 

MI 

329,63 

151 

97 

30 

FA 

349,23 

155 

9B 

31 

FA# 

369,99 

157 

9D 

32 

SOL 

392,00 

158 

9E 

33 

SOL# 

415,30 

167 

Al 

34 

LA 

440,00 

171 

AB 

35 

LA# 

466,16 

173 

AD 

36 

SI 

493,88 

174 

AE 

37 

DO 

523,25 

199 

CI 

38 

DO# 

554,37 

203 

CB 

39 

RE 

587,33 

205 

CD 

40 

RE# 

622,25 

206 

CE 

41 

MI 

659,26 

215 

D7 

42 

FA 

698,46 

219 

DB 

43 

FA# 

739,99 

221 

DD 

44 

SOL 

783,99 

222 

DE 

45 

SOL# 

830,61 

231 

E7 

46 

LA 

880,00 

235 

EB 

47 

LA# 

932,33 

273 

ED 

48 

SI 

987,77 

238 

EE 

49 

DO 

1046,0 

229 

E5 

50 

DO# 

1108,7 

236 

EC 


100 









fili o contatti scoperti o piedini degli integrati, questo perchè la resistenza delle dita 
potrebbe falsare la lettura sul frequenzimetro e di conseguenza la precisione di tutta 
la taratura. Alla fine della taratura è bene ricontrollare le sei frequenze reinserendo i 
sei codici della Tabella 4 sempre utilizzando la ROUTINE TARATURA già 
esposta, routine utile anche successivamente per ascoltare le 50 note che la scheda 
può produrre. 

Le 50 note insieme alle loro frequenze standard e alle corrispondenti POKEs da 
effettuare per ottenerle sono esposte nella tabella 5, nella stessa Tabella è indicata 
anche la POKE (9999,15) da effettuare per avere una PAUSA, vale a dire nessuna 
nota o frequenza emessa. 

Se la taratura è stata effettuata con cura la precisione delle 50 note dovrebbe essere 
migliore dello 0.5 — 1% rispetto ai valori standard indicati nella Tabella 5, il 
circuito utilizzato per la scheda musicale, oltre alla precisione, ha anche un ottima 
stabilità sebbene non sia quarzato ma a resistenza e condensatore. 

Sempre nella Tabella 5 sono indicati anche i codici esadecimali di tutte le note e 
della Pausa, codici utili per rendere più compatte aH’interno dei programmi le 
stringhe contenenti lunghe sequenze sonore o musicali. 


Programmi 

La scheda musicale è senz’altro il circuito più interessante in questo libro per cui ad 
esso vengono dedicati 4 programmi in questo capitolo sulla musica e ben 14 
programmi di effetti sonori nel prossimo capitolo. 

Oltre che per la musica e per produrre effetti sonori la scheda musicale può essere 
usata in molti altri programmi ovunque possa essere necessario o utile aggiungere 
dei suoni, in questo stesso libro vi sono alcuni esempi, di tali applicazioni nel 
capitolo prima di questo, dove la scheda è usata come monitor sonoro del Tasto per 
telegrafia, e nell’ultimo capitolo dove la scheda permette di realizzare dei giochi con 
anche il sonoro. 


Organo a 4 ottave FAST 

Il programma musicale più interessante e certamente quello di fig. 173 che trasfor¬ 
ma il computer in un organo elettronico a 4 ottave/49 note da DO 65.4Hz a DO 
1046.0 Hz. 

L’organo usa la tastiera speciale N. 3 posta alla fine del libro e che va ritagliata e 
sovrapposta alla tastiera dello ZX. Poiché il computer ha solo 40 tasti, mentre ne 
occorrerebbero 49, vengono usati solo 25 tasti i quali suonano le 2 ottave più basse 
premendoli da soli e le 2 ottave più alte premendoli assieme al tasto SHIFT che 
nella tastiera speciale corrisponde al tasto rosso. 

I codici delle POKEs effettuate dal programma, a seconda del tasto premuto e della 
nota da emettere, sono nella stringa A$ (linea 110). Se la lunghezza (LEN) della 
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10 

REM ORGANO 

ELETTRONICO 


£0 

REM 4 

OTTAUE - 

26 TASTI 


100 

FAST 






110 

LET R $ = 

" 17 1 

199 

215 

174 

015 

2 3 S 

235 015 

0 15 

2 3 7 

222 

219 

20 5 

229 

135 015 

0 15 

0 15 

0 11 

0 14 

015 

029 

039 045 

0 15 

0 15 

094 

067 

078 

0 13 

015 ©93 

103 

046 

109 

015 

0 15 

110 

107 015 

0 15 

0 15 

023 

075 

027 

04-3 

091 007 

077 

030 

07 1 

16 7 

157 

015 

173 231 

135 

0 15 

15 1 

158 

155 

139 

142 141 

2 03 

221 

0 15 

206" 


115 

PAUSE 3 

0 





120 

LET A=C 

ODE INKEY$ -12 



130 

IF A < 1 

THEN 

LET 

A =5 



140 

IF A > 5 1 

THEN 

LET 

A = A 

-46 


150 

IF A>55 

THEN 

LET 

A = A 

- 100 


160 

LET A=A*4 





170 

POKE 9999,UAL A$ 

( A - 3 

TO 

A - 1 

160 

G UT O 12 

0 






Figura 173 

stringa A$ è diversa da 271 il programma non funziona, per controllare di avere 
inserito tutti i codici e gli spazi è sufficiente inserire nel programma la linea 111 (fig. 
174), quindi far girare il programma e fermarlo con il tasto BREAK; una volta 


1 1IBPRINT L E N A $ 


Figura 174 

verificato sul video che la lunghezza di A$ è esatta la linea 111 può essere tolta ed il 
programma utilizzato regolarmente con la tastiera speciale. 


Metronomo FAST 

Il programma di fig. 175 produce le battute tipiche di un Metronomo il cui numero 
di battute al minuto (da 60 a 300) può essere predeterminato inserendolo all’inizio 
(fig. 176). 

Il programma può essere fermato usato il tasto BREAK. 

La nota emessa dal metronomo può essere cambiata sostituendo il codice 71 della 
POKE (linea 200) con un altro dei codici della Tabella 5. 
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1 0 0 

R E M 

METRONOMO 


1 1 0 

S L... O U 



.j- 0 

P R I NT 

"INSERIRE 

N" ' BATTUTE 

13 0 

11 

P R I NT 

"AL MINUTO 

( 60--30O 

1.4- 0 

P R I NT 

"E PREMERE 

NEULINE" 

15 0 

IN P UT 

E3 


160 

IF E: < 

6- 0 O R 6 > 3 0 0 

THEN GOTO 


15 0 

17 0 C L 5 
100 FflST 


19 0 

LET T 

= 3000 

..-B 

iTj cf\ 

U.... ■W W 

POKE 

QC|QC| , 

7 1 

2 10 

P h U S E 

1 


a 2 0 

P 0 K E 


15 

2 3 0 

PAUSE 

T 


“’i .-1 tTS 
!«>. H—' 

’-P ' S 

■-i i-s i-Ji 
w ia.' *t-' 



Figura 175 


IN SERIRE N- BATTUTE 
AL MINUTO < 60--30O ) 

E PREMERE NEULINE 

Figura 176 


Scale Musicali FAST 

Il programma di fig. 177 esegue alternativamente a salire e a scendere la scala delle 
50 note prodotte dalla scheda musicale. 


1000 REM SCALE MUSICALI 
1010 FRST 


1020 

LET 

A $ = ’ 

'007 

0 11 

013 

0 14- 

023 

027 

029 

030 

039 

04-3 

04-5 

04-6 

071 

©75 

077 

078 

087 

091 

093 

094- 

103 

107 

109 

110 

135 

139 

14-1 

14-2 

151 

155 

157 

158 

167 

171 

173 

174- 

199 

203 

205 

206 

215 

2 19 

221 

222 

231 

235 

237 

238 

229 

CL O 

i i 



1030 

FOR 

F = 1 

TO 

200 

STEP 

4- 



104-0 POKE 9999, URL R$(F TO F+2) 
1050 PAUSE 10 
1060 NEXT F 


Figura 177 (Continua 


103 



1070 POKE 9999,15 
1OS0 PAUSE 20 

1090 F OR F =200 TO 1 STEP -4- 

1100 POKE 9999,URL fi $ (F-3 TO Fì 

1110 PAUSE IO 

1120 NEXT F 

1130 POKE 9999,15 

114-0 PAUSE 20 

1150 GOTO 103© 

Figura 177 (Fine) 


La durata di ciascuna nota può essere aumentata o diminuita aumentando o 
diminuendo le pause alle linee 1050e 1110. È anche possibile avere scale solo a salire 
togliendo le linee da 1090 a 1140, o scale solo a scendere togliendo le linee da 1030a 
1080. 

Nella stringa A$ (linea 1020) è importante che dopo l’ultimo codice (236) e prima 
degli apici vi sia uno spazio. 


Generatore di musica casuale - 50 note FAST 


L’ultimo programma (fig. 178) di questo capitolo sulla musica produce una sorta di 
musica casuale formata da combinazioni delle 50 note. 


1000 REM GENERATORE DI MUSICA 
1005 REM CASUALE - SO NOTE 
1010 FAST 
1020 LET T = 10 


10 3 0 

LET 

A $ = 

"007 

0 11 

0 13 

0 14- 

023 

02 7 

029 

03 0 

0 39 

0 4-3 

04-5 

04-6 

071 

075 

077 

0 78 

087 

09 1 

093 

094- 

103 

107 

109 

1 10 

135 

13 9 

14-1 

14-2 

15 1 

155 

157 

15 8 

167 

171 

173 

174- 

19 9 

203 

205 

206 

2 15 

2 19 

2 2 1 

1 O ‘H 1 

231 

S F, 

cz. • »*' 

2 3 8 

o Q 

2 3 6 

i i 



10 4-0 

RAND 







1050 

FOR 

N = 1 

TO 

1000 





1060 LET F = (1 + INT < RND *50 i ) *4- 
1070 POKE 9999 ,UAL fi $ ( F - 3 TO FI 
1080 PAUSE T 

1090 IF INKEY $ = "7" AND T>1 THEN 
LET T =T-1 

110 0 IF INK.EY $ = " 6 " THEN LET T =T + 

1110 NEXT N 

112 0 P O KE 9 y99,15 

Figura 178 
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La velocità dell’esecuzione musicale può essere aumentata premendo il tasto “7” e 
diminuita premendo il tasto “6”. 

Il programma produce una sequenza di mille note, tale sequenza può essere 
continua togliendo la linea 1050 e sostituendo la linea 111#con la linea: 

1110 GOTO 1160 

Nella stringa A$ (linea 1030) è importante che dopo l’ultimo codice (236) e prima 
degli apici vi sia uno spazio. 
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EFFETTI SONORI 


I programmi di effetti sonori funzionano tutti nel modo FAST e possono essere 
utilizzati sia da soli che come subroutines di altri programmi. Se avete realizzalo e 
collegato al computer l’Avvisatore acustico per tastiera presentano all’inizio di 
questo libro, questo va disinserito tramite l’apposito interruttore quando viene 
fatto girare uno dei programmi di effetti sonori da solo o inserito in altri program¬ 
mi. 


Sirena a 2 toni (fig. 179) FAST 


1000 

REM 

SIRENA A 

1010 

FAST 



1020 

FOR 

D = 1 TO 

30 

1030 

POK.E 

9999 , 

14-1 

10 4-0 

PRIJS 

E 25 


1050 

POKE 

9999 . 

156 

1060 

PRU5 

E 25 


1070 

NEXT 

D 


1060 

POKE 

9999 

15 


Figura 179 


Sirena americana (fig. 180) 


FAST 


1000 

1010 

REM 

FAST 

SIRENA A 

1020 

FOR D 

=1 TO 90 

1030 

POKE 

9999 , 199 

1035 

PAUSE 

1 

104-0 

POKE 

9999,203 

104-5 

PAUSE 

1 

1050 

POKE 

9999.205 

1055 

PAUSE 

1 

1060 

POKE 

9999 206 

1065 

PAUSE 

1 

1070 

POKE 

9999.215 

1075 

PAUSE 

1 

1080 

POKE 

9999,219 


Figura 180 (Continua) 
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1035 PAUSE 1 

1090 POKE 9999.221 

1095 PAUSE 1 

1100 POKE 9999,222 

1105 PAUSE 1 

1110 POKE 9999.221 

1115 PAUSE 1 

1120 POKE 9999,219 

1125HP AUSE 1 

1130 POKE 9999.215 

1135 PAUSE 1 

114.0 POKE 9999,206 

114-5 PAUSE 1 

1150 POKE 9999,205 

1155 PAUSE 1 

1160 POKE 9999,203 

1165 PAUSE 1 

1170 NEXT D 

1160 POKE 9999,15 

Figura 180 (Fine) 


Sirena multitono (fig. 181) FAST 

1000 REM SIRENA MULTITONO 

1010 FAST 

1020 FOR D = 1 TO 30 

1030 LET fi $ = "091 103 14-1 199 " 

104-0 FOR F = 1 TO LEM A$ STEP 4- 

10 50 P O K E 9 99 9.U R L R $ (F T O F + 2 .i 

1060 PAUSE 5 

1070 NEXT F 

1030 FOR F = LEN R $ TO 1 STEP -4- 

1090 PO K E 9 9 9 9 ■UR L R $ (F-3 T Q F) 

1100 PAUSE 5 

1110 NEXT F 

1120 NEXT D 

113 0 P O K E 9 9 9 9,15 

Figura 181 


In questa sirena il numero dei toni diversi dipende dal numero di codici contenuti 
nella stringa A$ (linea 1030). Nell’esempio di fig. 181 vi sono 4 codici di note per cui 
la sirena è a 4 toni, dopo ogni codice di nota va sempre inserito uno spazio 
compreso anche l’ultimo codice (nell’esempio, dopo il codice 199). 

Altre modifiche possono riguardare le linee 1060 e 1100 che stabiliscono la durata 
di ogni nota e la linea 1020 che può essere modificata per aumentare o diminuire la 
durata del suono. 
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FAST 


Mitra (fig. 182) 

1000 REM MITRA 

1010 FAST 

1015 RAND 

1020 F OR N = 1 TO 10 

1030 FGR C=1 TO 3+1NT (RND*10) 

104-0 POKE 9999 , 3© 

1050 FOR T = 1 TO 4- 

1060 NEXT T 

1070 POKE 9999,15 

1060 FOR T = 1 TO 4- 

1090 NEXT T 

1100 NEXT C 

1110 PAUSE 2'0 + INT (RND*30) 

112*0 NEXT N 

Figura 182 


Campanella arrivo treni in stazione (fig. 183) 

100© REM CAMPANELLA ARRIUO 
1005 REM TRENI IN STAZIONE 
1010 FAST 

10 2*0 FOR N = 1 TO 2*00 
1030 POKE 9999,236 
104-G FOR T = 1 TÓ 12 
105© NEXT T 
1060 POKE 9999,15 
1070 FOR T = 1 TÓ 1 
1060 NEXT T 
1090 NEXT N 

Figura 183 


Segnale telefonico di linea occupata (fig. 184) 


1 0 0 0 

R E M 

SEGNALE 

1 0 0 5 

R E M 

DI L 

IN E A 

1 0 1 0 

F A ST 



;] 0 0 

F 0 R N 

= 1 T 

0 3 0 

■1 i“!'i 'T* i” 1 ! 

P C K, E 

9 9 9 *3 

,215 

.-« J .“’l. 

J.. ' «=+• vj 

P A U S E 

10 


10 5 0 

P O K E 

9 9 9 9 

, 15 

1 0 e. 0 

PAUSE 

10 


i !?i “!•* i ]'*! 

N E XT 

N 



TELEFONICO 


Figura 184 


FAST 


FAST 
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Segnale telefonico con linea libera (fig. 185) 


FAST 


1 0 0 0 
100 5 
1 0 1 0 
1 0 £ 0 
1 0 3 0 

.1 U A .~v 

J.. 

1 0 5 0 
10 6 0 
10 7 0 


1000 
1 0 1 0 
1020 
10 3 0 
10 4-0 

105 0 

106 0 
10 7 0 
1 0 S 0 
10 9 0 
1100 


100 0 
10 10 
1020 
103 0 
104-0 
1 . 0 5 0 
10 6 0 
1070 
1 0 S 0 
109 0 
1 1 0 0 
1 110 
1 1 £ 0 
1 13 0 


REM SEGNALE TELEFONICO 

REM DI LINE A LIBERA 

FAST 

POR N=1 TO 10 
P O K E 9 9 9 9,2 15 
P R U 3 E 7 O 
POPE 9999,15 
PAUSE 70 
NEXT N 


Figura 185 


Squillo del telefono (fig. 186) FAST 

REM SQUILLO DEL TELEFONO 
FAST 

F O R M = 1 T O S 

F Q R F = 1 T O 4.0 
POPE 999A.£37 
FpR T = 1 TÒ 4. 

NEXT T 

POPE 9 9 9 9,1F 
NEXT F 
PAUSE 80 
NEXT N 

Figura 186 


Orologio (fig. 187) FASX 


REM OROLOGIO 
FAST 

FOR N = 1 TO 60 

P O K E 9 999.94 
FOR T = 1 TÓ 3 

NEXT T 

POPE 999 9,15 
PAUSE £5 
PO K E 9 9 9 9.71 
FOR T = 1 TO 3 

NEXT T 

P O PE 9 999 i 15 
PAUSE £5 
NEXT N 

Figura 187 
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FAST 


Grillo (fig. 188) 

1000 REM GRILLO 

10 10 F FIST¬ 
IO L0 POR N=1 TO 50 

1O3 0 POR K = 1 TO 5 

10 4-0 R O K E 'd 9 9 9 £ 4- 0 

1050 FOR T=1 TO £ 

1060 NEXT T 

10 70 POKE 9 9 99,15 
1080 FOR T = 1 TO £ 

1090 NEXT T 

1100 NEXT K 

1110 PROSE £5 
1 1 £ 0 M E T N 

Figura 188 


Sostituendo nel programma le linee 1030 e 1110 con quelle di fig. 189 si può ottenere 
un effetto simile a più Grilli. 


10 00 

R E M 

GRILLI 

1 0 3 0 

F O R 

K = 1 T O 3 

1 1 1 0 

R R U 

SE 6 


Figura 189 


Il codice 240 usato nella POKE della linea 1040 non è uno dei codici nota della 
Tabella 5 ma è il codice che fa produrre alla scheda musicale la frequenza più alta 
(circa 1330 Hz). 

Segnale orario (fig. 190) FAST 


1000 

REM 

SEGNALE ORARIO 

1010 

FRST 


1020 

F O R R 

= 1 TO 5 

103 0 

POKE 

9999,£36 

104-0 

PAUSE 

4. 

1050 

P O K E 

9999,15 

1060 

PAUSE 

4- 6 

1070 

NEXT 

A 

1060 

PAUSE 

50 

1090 

POKE 

9999,236 

1100 

PAUSE 

4- 

1110 

POKE 

9999,15 


Figura 190 
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Sveglia (fig. 191) 


FAST 


1000 

REM 

SUEGLIA 


1010 

FfiST 



1020 

FOR N 

= 1 T O 200 


1030 

POKE 

9999,222 


1040 

POKE 

9999 231 


1050 

POKE 

9999,2 3 5 


1060 

FOR T 

= 1 TO 4 


1070 

NEXT 

T 


1 0 8 0 

POKE 

9999 15 


1090 

LET X 

= 1 


1100 

NEXT 

N 




Figura 191 




Din - Don (fig. 192) 

FAST 

1000 

REM 

DIN-DON 


1010 

FflST 



1020 

FOR N 

=1 TO 10 


1030 

POKE 

9999,236 


1040 

PAUSE 

2 


1050 

POKE 

9999,15 


1060 

PAUSE 

2 


1070 

POKE 

9999,222 


1060 

PAUSE 

20 


1090 

POKE 

9999,15 


1 100 

PAUSE 

50 


1110 

NEXT 

N 




Figura 192 




Generatore di suoni casuali (fig. 193) 

FAST 

1000 

R E M G E N E R A T O R E D I 

SUONI 

1005 

REM CASUALI 


1010 

FAST 


1020 

PRINT "INSERIRE RITARDO TRA 

5 U O N 0 E 1 ■ 


1030 

P R I NT 11 SIJ O N O ( 1 - - 2 0 

) E PRE 

MERE 

NEULINE" 

1040 

INPUT R 


1050 

IF R <1 OR R >20 THEN 

GOTO 10 

40 

Figura 193 (Continua) 
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1060 CL5 

1070 RfiND 

1060 FOR N = 1 TO 1000 

1090 P OK E 9 9 9 9 .RND * £ 
1100 FOR T = 1 TG R 

1110 NEXT T 

1190 NEXT N 


Fig. 193 (Fine) 





GIOCHI 


Prima di far girare il programma giochi che usano la scheda musicale per produrre 
dei suoni, occorre disinserire l’Avvisatore Acustico per tastiera tramite l’apposito 
interruttore. 


Miniroulette (con sonoro) SLOW 

Il primo gioco (fig. 194) è una Roulette con solo 24 posizioni. 

IO REM MINI ROULETTE 


G 24 STEP S 
10 — 10 * C O S i fi 1 2'*P I 

11: * P I !■ C H R $ ih+2 7 


10O 

5 L O U 


105 

R fi N D 


110 
. 1 1 

FRI NT 

RT 

ISO 

il 

(E 

il 

0 

II 

1 ' 

1 3 0 

P R I NT 

fiT 

,10+10*51N 

c 

14-0 

P R I NT 

fiT 

* P I ) 

, 10 + 10 

■+■ s 

$ (fi+lSb) 


150 

NEXT fi 


160 

LET CX 

= 0 

170 

LET CY 

= 0 

ISO 

PRINT 

fiT 

INE " 



190 

i i 

PRINT 

fiT 

20 0 

INPUT 

fi $ 

210 

UNPLOT 

c 

220 

PRINT 

fiT 

230BPRINT 

i i 

fiT 

2 4-0 

LET N = 

25 

2 50 

F 0 R H = 


2 0 

LET F = 

H 

2 70 

LET CX 

= 2 


10-1 0 * il: O S ( C fi + 1 ) 1 

N ( ( fi + 1 ) / 12 * R I ) ; C H 


2 1 , 1 ’ 


: , uv 
20,, 1 7 

Im ■ . 1 ■ | 1 I, 


PER INIZIAR 


r r n D + 2 5 :i 


KJ 


- J. O T C.< J. I ’-l 

Figura 194 (Continua) 
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8 0 

LET C 

V -* £ £ . 5 + 1 

9 0 

PLOT 

UX , CY 

00 

POKE 

9 9 9 9,1 ’-i 9 

10 

F O R T 

= i ” T LI H 

£0 

N E XT 

T 

30 

POKE 

999 9,1R 

4-0 

IF H = 

N T h e: n g 

5 0 

Lì N P L O 

r c x . c r 

6 0 

N E XT 

H 


Figura 194 (Fine) 


La Roulette appare sul video come in flg. 195. Premendo NEWLINE la pallina (il 
quadratino nero all’interno del cerchio) inizia a ruotare in senso orario fermandosi 
casualmente in una delle 24 posizioni. Durante la rotazione della pallina viene 
emesso un suono prodotto dalle linee 300 e 330 del programma. 

Il programma può essere fermato durante la rotazione della pallina usando il tasto 
BREAK. 

note: La linea 220 contiene tra gli apici 15 spazi, la linea 230 contiene tra gli apici 12 
spazi. 


m 


i-i 


m 



MINI ROULETTE 


53 


JL. 


ritiri ■ 
UHI 




a 


¥■: 


© 


e 


iSé 


m 



P k E M t R E 
P c. R I NT 


NEULINE 
IR RE 


Figura 195 
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Campo minato (con sonoro) 


SLOW 


Questo programma (fig. 196) simula un campo in cui vi sono 7 mine nascoste 
casualmente. Il giocatore deve spostare usando i tasti 5,6,7,8, il punto lampeggian¬ 
te dalla posizione di partenza nell’angolo in basso a sinistra alla posizione di arrivo 
nell’angolo in alto a destra senza incappare in una delle mine nascoste. Per attraver¬ 
sare il campo minato senza danni il giocatore può contare sul proprio intuito e sulla 
propria fortuna, se vi riesce appare sul video la scritta “SALVOOOH!” 


10 

R E M C m M P O M IM H T O 


£.‘0 

REM - 


9 9 

S L O LI 


100 

POKE 9999,15 


1 10 

F U R H = 1 T U 3 3 


120 

p r i n t ■ ■ mmmtmmM ■ *.; 


130 

NEXT H 


14.0 

PRINT 


15 0 

LET L = 21 


IL f= ‘ 0 

i er ~r — r* 


.1 —“1 v 
-L «iL> 

PRINT RT 0,31; “SD" 


15 0 

PRINT RT L,C;“3" 


1 9 0 

D IM M i: 7,2 ) 


3 0 0 

R R N D 


3 IO 

r 0 R R = 1 i O 7 


2 2 0 

LET G = IN T ( 32 * R N D) 


230 

LET F = INT !. 22 *RND ) 


240 

“i iTS 

IF G < 12 O R: F' 14 THE N 

GOTO 2 

lT.. *i J 

2 5 0 

LET M ( P , 1 !> =F 


2 6 0 

Lei M ( Pi 2 i = G 


270 

NEXT R 


280 

PRINT RT L,C; 


290 

P O K E 9 9 9 9,17 1 


3 00 

PRINT RT L , G “ “ 


3 10 

F' O K E 9 9 9 2,15 


320 

LET X=L 


3 30 

LET V= C 


340 

IF C>0 RND INKEV $ = “5“ 

THE N 

LET 

C =C-1 


350 

IF L < 2 1 R N D IN K E V $ = 1 ' 6 

“ THEN 

LET 

L = L + 1 


3 6 0 

IF L > 0 R N D IN K E Y $ = “ 7 “ 

THEN 

LET 

L =L - 1 


3 7 0 

IF C < 3 1 R N D IN K E V $ = ‘ 1 3 

“ THEN 

LET 

C = C + 1 


330 

IF X< >L O R V< >C THE N 

GOTO 4 


00 ' 


Figura 196 (Continua) 
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3'3 0 GOTO 2 30 
4-G0 POR 0 = 1 T O 

4-10 IF M ( fì , 1 ) = L 

EN GOTO 4-5 0 
4-20 NEXT H 
4-3 0 Ir L=0 R N D 
30 

4-4-0 GOTO 2 30 
4 3 0 POR E = 1 T O 
4G0 POINT RT L , 
4 . ?' 0 p u K E 9 9 9 9 2 

.4 w r-, r~. *t- k i -t” i 

m- •—* r- p. J. i 4 i ri i i_- 

4 90 POKE 999 9,1 
500 NEXT E 

510 FRINT HI L, 
520 STOP 

5 30 FRINT HT 0 , 
540 FRI NT Hi' S. 


flLUQQO xxx 


RND M ( R 2 ) = C TH 
C = 31 THEN GOTO 5 


1 0 



Figura 196 (Fine) 


24 SHFRINT RT F , G 

Figura 197 



Figura 198 
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Aggiungendo la linea 245 (fig. 197) e facendo girare il programma si può avere una 
idea di come vengono disposte le mine sul campo (fig. 198). Se si sposta il punto 
lampeggiante dalla partenza all’arrivo evitando le mine come già detto appare la 
scritta “SALVOOO” (fig. 199). 


Colonna 12 
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Naturalmente durante il gioco le mine devono essere nascoste per cui si deve prima 
togliere dal programma la linea 245. 

Ora con le mine nascoste può capitare di terminare il gioco senza danno (fig. 200) 
oppure può succedere prima dell’arrivo di capitare su una delle mine (fig. 201). Se 
attraversando il campo si finisce su una mina il computer simula con il suono e con 
Pimmagine una sorta di esplosione. 

Il numero delle mine può essere aumentato o diminuito per rendere più difficile o 
più facile ilgioco. Se per esempio si vogliono nascondere 12 mine invece di 7 occorre 
modificare il contenuto delle linee 190, 210 e 400 sostituendo, all’interno delle linee 
stesse, tutti i 7 con dei 12. 

Così com’è, il programma nasconde le mine in una zona limitata prossima alla 
posizione di arrivo (fig. 202), se però si modifica il programma in modo da 
nascondere più mine (per esempio 15-20 mine) si può fare in modo che tali mine 
vengano sparse per tutto il campo e non in una zona limitata, togliendo dal 
programma la linea 240. 

nota: La linea 120 contiene tra gli apici 8 caratteri grafici ottenuti premendo (con il 
computer in modo GRAPHIC) insieme al tasto SHIFT i tasti A H A H A- 
H A H. 


1-40 Dadi 


FAST 

OSLOW 


Sfruttando al massimo la risoluzione grafica dello ZX81 si possono fare apparire 
sullo schermo fino a quaranta Dadi, usando il programma di fig. 203. Premendo 
RUN e NEWLINE il programma chiede innanzitutto quanti dadi devono uscire 
(fig. 204) quindi li disegna sullo schermo indicando alla fine il numero di Dadi ed il 
loro punteggio totale (fig. 205). 

note: Le linee da 230 a 330 contengono tra gli apici 4 caratteri grafici ciascuna, 
ottenuti con il computer in modo GRAPHIC e premendo SHIFT. Qui di seguito 
viene data una lista dei tasti ai quali corrispondono i caratteri grafici da inserire tra 
gli apici nelle varie linee, in questa lista gli spazi inversi sono indicati con SPACE 
(da premersi sempre in modo GRAPHIC ma senza SHIFT): 


230 

3, 

6, 6, 6 

240 

8, 

SPACE, SPACE, SPACE 

250 

8, 

Q, SPACE, SPACE 

260 

8, 

Q, SPACE, Q 

270 

8, 

Q, Q, Q 

280 

8, 

SPACE, Q, SPACE 

290 

8, 

SPACE, SPACE, SPACE 

300 

8, 

SPACE, SPACE, SPACE 

310 

8, 

SPACE, SPACE, Q 

320 

8, 

Q, SPACE, Q 

330 

8, 

Q. Q. Q. 
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4- 0 O HO I 


1 - 


io re r-i i - 
10 0 SL oU 
110 P RINT 
- 4 0 ) 11 

120 PRINT 
130 INPUT N 

140 IF N<1 OR N>40 THEN GOTO 13 


INSERIRE N 1 DODI ( 
E PREMERE NE ULIN E 


0 


15 0 c L S 
160 LEI K-0 

170 LET Y = 0 

1S O R R N E-' 

190 FOR L = O TO 19 STEP 4 

200 FOR 0=0 TO 31 STEP 4 

210 LET Y=Y + 1 

22 0 LET X = 1 + 1NT (RND*6) 

230 PRINT RT L,C; " h." 

24 0 IF X. = 1 THEN PRINT RT L + 2 


C; 


2 50 IF X =2 OR X = 3 THEN PRINT RT 
L + 1 , C " UHI" 

260 IF X= 4 OR X = 5 THEN PRINT RT 
270 ‘ IF xff^THEN PRINT RT L + 1 , C ; 


280 IF X = 1 OR X = 3 OR X = 5 THEN P 

RINT RT L+2 , C, " U' 

2Q0 IF X= 2 OR X =4 OR X = 6 THE N P 

RINT RT L+2 C '' HH 

300 IF X = 1 THEN PRINT RT L+3, C 


310 IF X =2 OR X = 3 THEN PRINT RT 

L+3 " ' ' 

320 ■' IF X = 4 OR X = 5 THEN PRINT RT 

330 '' IF m *THEN PR INT RT L +3 , C 


340 LET K = K+ X 

350 IF Y=N THEN GOTO 380 

360 NEXT C 

370 NEXT L 

380 PRINT 

390 PRINT *' ” N" DADI".; 

UNTEGGIO = ";K 

Figura 203 


INSERIRE N* DADI t‘ 1 
E P R E M E R E N E UJ L IN E 

Figura 204 


-40 
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4-0 Dfl D I 


PUNTEGGIO = 150 

Figura 205 


Tavola di numeri e lettere 


SLOW 


La prima parte del programma di fig. 206 disegna sul video una tavola di 16 caselle 
di cui 15 occupate dai numeri da 0 a 9 più le lettere da A ad E. Subito dopo, con il 


10 

REM 


T 

RUC 

LR 

20 

REM 


E 

LETT 

100 

5L0I- 

.1 




110 

D IM 

fl 

$ 

(4- , 

4- li 

120 

LET 

R 

$ 

( i :i 

__ i i 

130 

LET 

A 

$ 

( £ ;t 

__ i i 

14-0 

LET 

H 

$ 

< 3 ) 

_ t i 

150 

LET 

R 

$ 

(4-) 

__ i i 

160 

PRIt' 

JT 


RT 

3 . 

170 

PRir- 

JT 


RT 

4- , 

ISO 

pRir- 

JT 


RT 

5 , 

190 

pr ir- 

■iT 


RT 

£• .i 

200 

FRI NT 


RT 

—n 

•* ^ 

2 10 

PRINT 


RT 

S .. 


NUMERI 



I1234-? 
|567SÌ 
|90RB| 

ICDEr 


mmm 


Figura 206 (Continua) 



























220 

FAST 





230 

LET 

L =4 





24-0 

LET 

0=4 





250 

FOR 

M = 1 T O 

500 




260 

LET 

X = 1 + INT 

C4*RND3 



270 

IF 

C < 4 AND 

X = 1 

THEN 

GOSUB 

3 

60 

260 

40 

IF 

l-> 1 AND 

X — ^ 

THEN 

GOSUB 

4 

29© 

00 

IF 

L <4 AND 

X = 3 

THEN 

GOSUB 

5 

300 

IF 

C > 1 AND 

X = 4 

THEN 

GOSUB 

5 

60 







3 10 

NEXT M 





320 

SLOU 





330 

IF 

C < 4 AND 

INKEY$ = "5 

" THEN 



GOSUB 380 

34-0 IF L > 1 AND INKEY$ = "6" THEM 

GOSUB 4-4-0 

350 IF L < 4 AND INKEY$ = "7" THEN 

GOSUB 500 

360 IF C>1 AND INKEY$ = " 8 " THEN 

GOSUB 560 
370 GOTO 330 

3SO PRINT AT L +3,0 + 13;" " 

390 LET A$ CL,03 =A$ (L,0 + 13 
4-00 LET A$ (L , C + l) = " " 

4-10 PRINT AT L + 3 , C + 19 A $ C L , C 3 

4-20 LET 0=0 + 1 

4-0:0 RETURN 

4-4-0 PRINT AT L+2,C + 12; " " 

4-50 LET A $ < L , 0 3 = A $ t L - 1 , C 3 

4-60 LET A $ C L - 1 .. C 3 =" " 

4-70 PRINT AT L + 3 . C + 12.: A $ ( L , C 3 

4-60 LET L =L - 1 

4-90 RETURN 

500 PRINT AT L+4- ,0 + 12; " " 

510 LET A$ (L .0 3 = A$ (L + l,0 3 

520 LET A$ (L + l j 03 = ‘' 

50:0 PRINT AT L+3,0 + 12; A$ (L,C 3 
54-0 LET L =L + 1 

550 RETURN 

560 PRINT AT L+3.0 + 11;" " 

570 LET A $ (L,C 3 = A $ ( L ,C-13 

560 LET A$(L.0-13=" " 

5 9 O P R I NT AT L + 0:,, C + 12 I A $ ( L , 0 3 

600 LET 0=0-1 

610 RETURN 

Figura 206 (Continua) 
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computer in FAST, le 15 caselle con le lettere e i numeri vengono mescolate per 
circa 45 secondi per poi apparire sullo schermo come in fig. 207. 

A questo punto, usando i tasti 5, 6, 7, 8 si possono spostare le varie caselle con i 
numeri e le lettere per cercare di ritornare alla disposizione iniziale (fig. 208). 


Figura 207 




Figura 208 

Se all’inizio del programma si vuole vedere in che modo il computer mescola le 
varie caselle si può sostituire la linea 220 FAST con la linea 220 SLO W, in questo 
modo però tale fase di mescolamento durerà circa tre minuti. 


Tombola SLOW 

Il programma della tombola (fig. 209) per prima cosa disegna in nero sul video le 6 
cartelle del tabellone e la scritta “Tombola”. 


1, 0 

p t: ri 

T ì'.i 

M 3 C 

l L. H 

100 

SL o u 




1 10 

p P 1 NT 

bill 

0 

0 ; " 

Fi" 





1 s o 

O C' t- h : ■ , 
r" n, j.. i -i ; 

RT 

•1 

0 ; " 

FI" 





1 J 0 

r u p l. = 

;jì 

i i-i 

■=: 1 

14-0 

IF MOT 

L.„ 


R N C 


t u MI » » R_l 



Figura 209 (Continua) 
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Figura 209 (Fine) 
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Figura 210 

Ora ogni volta che si preme il tasto “N” il programma estrae uno dei numeri da 1 a 
90 che non sia già uscito e lo sistema nella sua cartella, inoltre il numero appena 
uscito lampeggia nell’apposito riquadro nero posto in alto a destra. 

È molto importante premere ogni volta il tasto “N” giusto il tempo necessario 
perchè nel piccolo riquadro lampeggiante appaia un nuovo numero. 

L’aspetto del tabellone dopo l’uscita di molti numeri può essere come in fig. 210. 
Se si è in molti a giocare si possono collegare più televisori all’uscita del computer e 
sistemarli in vari punti del tavolo. 

Il programma può essere fermato usando il tasto BREAK. 


Metal Detector (con sonoro) SLOW 


Il programma (fig. 211) disegna un campo e vi nasconde il tesoro in un punto scelto 
casualmente dal computer. 
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Figura 211 (Continua) 


127 




107 

109 

110 135 

13 9 

141 142 151 

155 

157 

153 167 

17 1 

173 174 199 

2 0 3 





120 

LET 

X = INT t 

15 *RND ) + INT ( 13 * 

RND) 





130 

LET 

Y=INT (12*RND)+INT (11* 

RND ) 
140 

•”i ry 

IF X 

<8 RND 

Y > 15 

THEN GOTO 1 

1=. SL) 

150 

LET 

L = 2 1 



160 

LET 

0=0 



170 

FOR 

3 = 1 T O 



130 

PRINT "ilSilil 



190 

NE XT 

s 



200 

P R I NT 



2 10 

LET 

M = 0 



:=• 2 0 

LET 

F = 15 



23© 

PRINT flT L, 

G" . " 


24 0 

POKE 

999 9.1 

c; 


2.5 0 

PRINT RT L, 

r: ; " 1 ‘ 


260 

IF C 

>0 RND 

INKEY 

$ = “5" THEN 

LET i 

f: = r: - 1 




270 

IF L 

(21 RND 

IN K E 

Y$ = "6" THEN 

LET 

L = L + 1 



230 

IF L 

>0 RND 

INKEY 

$ = “7 11 THEN 


LET L =L- 1 

2 90 IF C < 3 1 R N D IN K E Y $ = ' ' 8 ' ‘ THE N 

LET C=C+1 

300 IF C0 DE INK EY$ >32 RND C ODE 

IMKEY$ <3 7 THE N GOT0 370 

3 10 IF L=Y AND C=X THEN GOTO 3 4- 

0 


32 0 

POKE 

9 9 9 9 

, F 


3 3 0 

R i iT i i 

2 3 0 



34 0 

P R I NT 

RT 

Y ,» 

11 C3 1 ' 

34 5 

POKE 

9 9 9 9 

, F 

350 

PRINT 

RT 

0 , 0 

"TESORO 

IN 

" ; M ; " 

M 0 S 

SE" 


f; f; 

P RIJ S E 

5 0 



3 6 0 

POKE 

9 '=! 9 9 

, 15 


R R 

STO P 




3 7 0 

LET M 

= r-i +1 



33 0 

LET J 

= 5 3 -■ 

RBS 

( Y - L li - R E 

3 Q 5 

IF J > 

1 3 T H E' N 

LET J=.J~ 

3 9 0 

L ET F 

= U R L 

& $ 

!. l — ^ \ !_,! 

4 0O 

G OT 0 

•-= ' J, i ;, 1 




Figura 211 (Fine) 
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Figura 212 


Il giocatore dovrà spostare, tramite i tasti 5,6,7,8, il punto lampeggiante in basso a 
sinistra fino al punto dove è nascosto il tesoro. 

Come in un vero Rivelatore di Metalli la frequenza del suono emessa dal computer 
aumenterà diventando sempre più acuta quando il punto lampeggiante si avvicina 
al tesoro nascosto mentre diminuirà se il punto lampeggiante viene spostato nella 
direzione sbagliata. 

Appena il punto lampeggiante passerà sul tesoro apparirà il simbolo del dollaro ed 
il computer indicherà con una scritta in alto sul video in quanti spostamenti il 
giocatore è riuscito a trovarlo (fig. 212). 


Segnatempo (con sonoro) FAST 

Questo programma (fig. 213) non è propriamente un gioco ma può essere utilizzato 
in molti giochi con limite di tempo per scandire il passare dei secondi. 
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Figura 213 (Continua) 



129 






G OT O 


14 


140 INPUT S 

150 IF S<1 OR S > 3 0 THEN 

160 LET 1=5*50-2 

170 PO KE 999 9,7 

160 PAUSE 50 

190 POKE 9999,15 

£ 0 0 F' fi Li S E T 
2 10 P Q K E 9 9 9 9 ,2 £ 2 

220 PAUSE £ 

£30 P OK E 9 9 9 9,15 

240 GOTO 190 


Figura 213 (Fine) 


Il programma emette un suono basso per un secondo, appena tale suono sparisce il 
computer comincia ad alternare delle pause e dei brevi BIP sonori. 

Il tempo che intercorre tra un BIP e l’altro può essere scelto tra 1 é 30 secondi e va 
introdotto all’inizio quando il programma lo richiede. 


Lotto SLOW 

Il programma di fig. 214 estrae dei numeri casuali da giocare al Lotto. 

Per prima cosa il programma chiede su quali Ruote si vuole effettuare la Giocata 
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Figura 214 (Continua) 
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Figura 214 (Continua) 
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Figura 214 (Fine) 


S C E ijj L. IERE LE R U U i E P R E M E N D G 
I Tfi 5 T I REL... RTIUI fi L LE C ITTfi■ 



RÉ 


i_: > ì—' F i-.; 0 0 N | T j\j i_i hkE 


Figura 215 


(fig. 215), la scelta delle città viene effettuata premendo i corrispondenti numeri da 
1 aj0f(la prima fila di tasti del computer), quindi si preme il tasto “C” per passare 
alla scelta della Giocata (fig. 216). Tale scelta viene effettuata inserendo un numero 
da 1 a 5 (per avere un numero singolo, un ambo, ecc.) e premendo poi NEWLINE. 
A questo punto appaiono sullo schermo le città con a fianco i numeri scelti 
casualmente dal computer. 

La fig. 217 mostra un esempio di risultato ottenuto selezionando tutte le Ruote e 
scegliendo la cinquina come Giocata. 
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Figura 217 

Totocalcio FAST O 

SLOW 

L’ultimo programma di questo libro (fig. 218) visualizza sullo schermo e stampa 
alla fine sulla stampante delle colonne di risultati da giocare al Totocalcio. Il 
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10 REM T OTO CALCIO 

£0 REM GENERAZIONE DI 

30 REM COLONNE CASUALI 

100 SLOU 

110 PRINT "QUANTE COLONNE ? ( 

1 - - 16 ) " 
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34 0 IF X> P1 fi ND X < (PI+PX + 11 THE 

N PRINT "X 

350 IF X > (P1+P XJ THE N PRINT "£ 

li. 

360 NEXT C 

370 PRINT 

3 3 0 IF L = 3 OR L=6 OR L=S THEN P 

R I NT 

390 NEXT L 

400 COPY 

Figura 218 

numero di colonne desiderato (che può essere da 1 a 16) va introdotto all’inizio del 
programma (fig. 219). 
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La scelta dei risultati tra 1, X e 2 è parzialmente casuale poiché il programma 
prevede all’inizio l’introduzione della percentuale di uscita degli “1” (fig. 220) e 
degli “X” (fig. 221) che si ritiene più probabile, se la percentuale totale degli “1” e 
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Figura 219 
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Figura 221 
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Figura 222 


degli “X” e inferiore al 100% la parte rimanente rappresenta la percentuale di uscita 
del “2”. 

La fig. 222 mostra un esempio di risultato con 16 colonne e con in alto le percentuali 
di 1, X, 2, introdotte. 
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Dove collocare le tastiere allegate 
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Corrispondenza tra la Tastiera 1 e i tasti delio ZX81 
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Corrispondenza tra la Tastiera 2 e i tasti dello ZX81 
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Corrispondenza tra la Tastiera 3 e i tasti dello ZX81 
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Chi possiede uno ZX81 o anche uno ZX80 con nuova ROM, troverà senz’al¬ 
tro in questo libro molte cose utili. 

Innanzitutto 66 programmi che coprono varie applicazioni e le cui princi¬ 
pali caratteristiche sono soprattutto il largo uso delle capacità grafiche e di 
animazione dello ZX81 e (molto importante) la sicurezza di funzionamento 
dei programmi non essendo stati essi ricopiati dal video ma stampati 
direttamente dal computer (subito dopo avere girato con successo) con 
una speciale stampante ad alta qualità, costruita appositamente per questo 
libro. 

Vi sono anche alcuni circuiti collegabili ai due ZX: un alimentatore tampo¬ 
ne, un avvisatore acustico per la tastiera e, soprattutto, un’interfaccia per 
collegare gli ZX ad infinite apparecchiature esterne, oltre ad una scheda 
musicale che genera ben 50 note su 4 ottave. 

E il meglio, in particolare degli ultimi tre circuiti detti, è che possono essere 
costruiti con POCHE MIGLIAIA di lire ciascuno! 

Non solo ma vengono dati, per l’interfaccia e la scheda musicale, anche 
numerosi programmi applicativi tra cui, specialmente per quest’ultima, 
molti effetti sonori ed alcuni giochi che sono, probabilmente, gli unici 
programmi con sonoro disponibili a tutt’oggi per i computers Sinclair. 
Ed ancora, altra novità, troverete alcune tastiere disegnate da sovrapporre 
alla tastiera del Sinclair in alcune applicazioni speciali. 

Dello stesso autore: 

GLI AMPLIFICATORI DI NORTON QUADRUPLI LM3900 & LM359 con 
esperimenti. 
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